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Preface 



This PLM (Program Logic Manual) is a 
detailed guide to the IBM Disk Operating 
System service programs supplementing 
various supervisor and transient functions. 
It documents internal logic and data flow 
through descriptive text, flowcharts, and 
figures. 



For the complete logic of the DOS 
control and service operations, this manual 
is to be used with the following six 
companion PLMs. 

Note : Although titles of some DOS 
publications have been simplified, the 
change does not affect the contents of 
the publications - 

• Introduction to DOS Logic . GY24-5017. 

• DOS IPL and Job Control . GY24-5086. 

• DOS Librarian . GY24-5079. 

• DOS Linkage Editor . GY24-5080. 

o DOS Supervisor and Related Transients . 
GY24-5151. 

• DOS Logical Transients . GY24-5152. 

Prerequisite to the effective use of the 
seven PLMs are the following publications, 

• IBM System/360 Principles of Operation . 
GA22-6821. 

• DOS System Control and Service . 
GC24-5036. 

• IBM System/360 Disk and Tape Operating 
Systems. Assembler Language . GC24-3414. 



Publications related in subject matter 
to the seven system control PLMs are: 



• D OS Supervisor and I/O Macros . 
GC24-5037. 

• D OS System Generation . GC24-5033. 

• DOS Operating Guide . GC24-5022. 

• DOS Messages . GC24-5074. 

• D OS Data Management Concepts . 
GC24-3427. 

Titles and abstracts of other related 
publications are listed in the IBM 
System/360 and System/370 Bibliography . 
GA22-3822. 

This manual consists of seven major 
sections. The first section details PDAIDs 
(Problem Determination Aids), the second 
DUMPGEN (Stand- Alone Dump) , the third LSERV 
(Label Cylinder Display) program, the 
fourth ESTV (Error Statistics by Tape 
Volume) programs, the fifth EREP 
(Environmental Recording, Editing, and 
Printing) program, and the sixth IBM 3211 
Printer support programs. The seventh 
section is comprised of various 
cross-reference lists and figures for use 
in analyzing program internals. 

The flowchart symbols used in this 
manual conform with the flowcharting 
standards of the American National 
Standards Institute, Inc. Numerals, such 
as 00, identify the program or general 
level flowcharts. The detailed flowcharts 
are identified by letters AA through ZZ. 
See Appendix E . 



Preface 



4 DOS System Service Programs 



Contents 



PDAIDS (PROBLEM DETERMINATION AIDS) • . 11 

Introduction 11 

System Consideration for PDAIDs . . 11 

Initiation of PDAID 13 

I/O Trace Function 17 

Tracing Options . . . . . 17 

Data Collection . ... 17 

Output 18 

PDAIDITW (Core-Wrap Mode) 18 

PDAID ITP (Printer Output) ...... 20 

PDAIDITT (Tape Output) 20 

Fetch/Load Trace Function . . 23 

Tracing Options 23 

Data Collection 23 

Output 23 

PDAIDFTW (Core- Wrap Mode) 24 

PDAIDFTP (Printer Output) 24 

PDAIDFTT (Tape Output) 25 

GSVC Trace Function 27 

Tracing Options 27 

Data Collection 27 

Output 27 

PDAIDGTW (Core- Wrap Mode) 28 

PDAIDGTP (Printer Output) 29 

PDAIDGTT (Tape Output) 29 

QTAM Trace Function 31 

Description and Operation 31 

Tracing Options 31 

Data Collection 32 

Output 32 

PDAIDQTW (Core- Wrap Mode) 32 

PDAIDQTT (Tape Output) 34 

Tables Used by PDAID 35 

DUMPGEN (STAND-ALONE DUMP) 81 



Executing DUMPGEN 81 

DUMPGEN Messages 82 

Coredump ....83 

DUMPCORE 83 

LSERV (LABEL CYLINDER DISPLAY) ..... 95 

ESTV (ERROR STATISTICS BY TAPE VOLUME) . 99 

ESTV Records 99 

ESTV Output Modes 99 

ESTV Dump File Program (ESTVUT) . . .100 

ESTV Format Data Set Program 

(ESTVFMT) .100 

EREP (ENVIRONMENTAL RECORDING, 

EDITING, AND PRINTING) 109 

Recorder File 110 

EREP Phases 110 

3211 PRINTER SUPPORT PROGRAMS 203 

APPENDIX A: LABEL LIST .214 

APPENDIX B: ERROR MESSAGE CROSS 

REFERENCE 223 

APPENDIX C: REFERENCE FIGURES 224 

APPENDIX D: MICROFICHE CROSS-REFERENCE 
INDEX 263 

APPENDIX E: EXPLANATION OF FLOWCHART 
SYMBOLS 264 

GLOSSARY 265 

INDEX 268 



Contents 5 



Fi gures 



Figure 1. PDAID Control Statements . .14 
Figure 2. I/O Trace Table Entry . . . 17 
Figure 3. Sample Output for I/O Trace 18 
Figure 4. Entering New Events in the 
Trace Table for I/O, F/L, GSVC, and 

QTAM Core-Wrap Modes 19 

Figure 5. Entering New I/O Events in 
the Trace Table for Output Phases . . • 20 
Figure 6. F/L Trace Table Entry . ... 24 
Figure 7, Sample Output for F/L Trace 25 
Figure 8. GSVC Trace Table Entry . . . 27 
Figure 9. Sample Output for GSVC 

Trace 28 

Figure 10. Entering New SVC Events in 
the Trace Table for Output Devices . . 29 
Figure 11. QTAM Trace Table Entries . 31 
Figure 12. Sample Output for QTAM 

Trace 33 

Figure 13. Entering Ndw QTAM Events 
in the Trace Table for Tape Output 

Devices 34 

Figure 14. CE Address Table (CETAB) . 35 
Figure 15. Trace Table Entries (Part 

1 of 4) 35 

Figure 16. Standard Preface in CE 
Area for I/O, F/L, GSVC, and QTAM 

Traces 37 

Figure 17. Switches Used by PDAID ... 38 
Figure 18. DUMPGEN Program Switches . . 83 
Figure 19. Sample Output of DUMPCORE 
(Part 1 of 4) ....... 84 

Figure 20. Sample Output from LSERV 

96 

Figure 21. EREP Main Storage Map 

Ill 

Figure 22. EREP Option Summary . . . .112 
Figure 23. EREPEDIT List Processing .112 
Figure 24. SDR Records Formatted by 

EREPSDR Lists 113 

Figure 25. OBR Records Formatted by 

EREPOBR Lists 114 

Figure 26. Edited Channel Inboard 

Error Records (Model 30) ...... .115 

Figure 27. Edited Machine Check 

Record (Model 30) 116 

Figure 28. Edited Channel Inboard 

Error Record (Model 40) 117 

Figure 29. Edited Channel Inboard 

Error Record (Model 50 Short Record) .118 

Figure 30. Edited Machine Check 

Record (Model 50) 119 

Figure 31. Sample Output by EREP2715 .120 
Figure 32. Sample Area Station/Device 
Record Output by EREPASSM ...... .121 

Figure 33. Format of 2715 Error 

Records on SYSREC (Part 1 of 5) ... .122 

Figure 34. Edited Machine Check 

Record — Model 155 127 

Figure 35. Edited Machine Check 

Record — Model 145 128 



Figure 36. Edited Channel Check 

Record — Model 155 129 

Figure 37. Edited Channel Check 

Record — Model 145 (Part 1 of 2) . . .130 

Figure 37. Edited Channel Check 

Record — Model 145 (Part 2 of 2) . . .131 

Figure 38. IPL and EOD Records . . . .132 

Figure 39. Supervisor Storage 

Allocation 224 

Figure 40. Accessing CE 

Serviceability and PDAID Routines . .225 

Figure 41. DOS Supervisor Calls (Part 

1 of 2) 226 

Figure 42. SDR Communications Region 
(SDRTABLE) (Part 1 of 2) ...... .228 

Figure 43. SDR Record Format .... .230 

Figure 44. SDR Device List Example 

(from $$ANERAD listing) . 231 

Figure 45. OBR Record Formats . . . .232 

Figure 46. Machine Check Recording 

and Recovery (MCRR) Linkage Table . . .233 

Figure 47. Machine Check Recording 

and Recovery (MCRR) Record Formats 

(Part 1 of 4) 234 

Figure 48. I/O Table 

Interrelationship 238 

Figure 49. Logical Unit Block (LUB) 

Table 239 

Figure 50. Job Information Block 

(JIB) Table .240 

Figure 51. Physical Unit Block (PUB) 

Table .241 

Figure 52. Tape Error Block (TEB) 

Table 242 

Figure 53. TEBV Table Showing Status 
Block and Error Blocks (Part 1 of 2) .243 
Figure 54. CHANQ, LUBID, REQID, 

LUBDSP, and TKREQID Tables 245 

Figure 55. Track Hold (TKHDTAB) Ta|)le 246 
Figure 56. Supervisor Communications 

Region (Part 1 of 5) . . .247 

Figure 57. Communications Region 

Extensions .252 

Figure 58. First Part of Program 
Information Block (PIB) Table .... .253 
Figure 59. PIB Flag Expansions . . .254 
Figure 60. Second Part of Program 
Information Block (PIB) Table .... .255 
Figure 61. Device Type Codes . . . .256 

Figure 62. Density Data .257 

Figure 63. Cancel Codes and Messages .258 
Figure 64. Job Accounting Interface 

Common Table (ACCTCOMN) . • 259 

Figure 65. Job Accounting Interface 

Partition Table (ACCTxx*) 260 

Figure 66. RMS Machine Check Record 

on SYSREC . 261 

Figure 67. RMS Channel Check Record 

on SYSREC . .262 



6 DOS System Service Programs 



Charts 



Chart 00. Disk Operating System 

Program Flow 10 

Chart 01. General Logic Flow of the 

PDAID Programs 12 

Chart 02. Logic Flow of the I/O Trace 
Function 16 

Chart 03. Logic Flow of the 

Fetch/Load Trace Function 22 

Chart 04. Logic Flow of the GSVC 

Trace Function 26 

Chart 05. Logic Flow of the QTAM 

Trace Function 30 

Chart AA. PDAID Initializer: 

Determining the Function .39 

Chart AB. PDAID Initializer: 

Initializing the Function (Part 1 of 3) 40 

Chart ABA. PDAID Initializer: 

Initializing the Function (Part 2 of 3) 41 

Chart AC. PDAID Initializer: 

Initializing the Function (Part 3 of 3) 42 

Chart AD. PDAID Initializer: Card 

Input Routine 43 

Chart AE. PDAID Initializer: Keyword 

Verification 44 

Chart AF. PDAID Initializer: Console 

Input/Output Routines 45 

Chart AG. PDAID Initializer: Get 

IGN/TRC Parameters EOJ Routine; 

Check Display Limits (Part 1 of 2)... 46 

Chart AH. PDAID Initializer: Get 

IGN/TRC Parameters EOJ Routine; 

Check Display Limits (Part 2 of 2) ... 47 

Chart AJ. PDAID Initializer: PHASE 

and PARTITION Parameters; Error 

Routines 48 

Chart AK. PDAID Initializer: Check 
Parameters, Devices, and Convert to 

Binary 49 

Chart AL. $$BPDAID - PDAID Transient 

Routine 50 

Chart BA. PDLIST - Tape-to-Printer 

Program (Part 1 of 3) 51 

Chart BB. PDLIST - Tape-to-Printer 

Program (Part 2 of 3) • * 52 

Chart BC. PDLIST - Tape-to-Printer 

Program (Part 3 of 3) 53 

Chart BD. PDLIST - I/O Trace Records . 54 
Chart BE. PDLIST - F/L Trace Records . 55 
Chart BF. PDLIST - QTAM Trace Records . 56 
Chart CA. I/O Trace: Core-Wrap Mode 

(PDAIDITW) 57 

Chart CB. I/O Trace: Print Mode 

(PDAIDITP) (Part 1 of 2) 58 

Chart CC. I/O Trace: Print Mode 

(PDAIDITP) (Part 2 of 2) . . 59 

Chart CD. I/O Trace: Tape Mode 

(PDAIDITT) (Part 1 of 2) 60 

Chart CE. I/O Trace: Tape Mode 

(PDAIDITT) (Part 2 of 2) 61 

Chart DA. F/L Trace: Core-Wrap Mode 
(PDAIDFTW) 62 



Chart DB. F/L Trace: Print Mode 

(PDAIDFTP) (Part 1 of 2) 63 

Chart DC. F/L Trace: Print Mode 

(PDAIDFTP) (Part 2 of 2) 64 

Chart DD. F/L Trace: Tape Mode 

(PDAIDFTT) (Part 1 of 2) 65 

Chart DE. F/L Trace: Tape Mode 

(PDAIDFTT) (Part 2 of 2) . ....... 66 

Chart EA. GSVC Trace: Core-Wrap Mode 

(PDAIDGTW) (Part 1 of 2) 67 

Chart EB. GSVC Trace: Core-Wrap Mode 

(PDAIDGTW) (Part 2 of 2) 68 

Chart EC. GSVC Trace: Print Mode 

(PDAIDGTP) (Part 1 of 3) 69 

Chart ED. GSVC Trace: Print Mode 

(PDAIDGTP) (Part 2 of 3) . 70 

Chart EE. GSVC Trace: Print Mode 

(PDAIDGTP) (Part 3 of 3) 71 

Chart EF. GSVC Trace: Tape Mode 

(PDAIDGTT) (Part 1 of 3) 72 

Chart EG. GSVC Trace: Tape Mode 

(PDAIDGTT) (Part 2 of 3) . . 73 

Chart EH. GSVC Trace: Tape Mode 

(PDAIDGTT) (Part 3 of 3) ........ 74 

Chart EM. QTAM Trace: Core-Wrap Mode 
(PDAIDQTW) (Part 1 of 3) ........ 75 

Chart EN. QTAM Trace: Core-Wrap Mode 

(PDAIDQTW) (Part 2 of 3) . . 76 

Chart EP. QTAM Trace: Core-Wrap Mode 

(PDAIDQTW) (Part 3 of 3) 77 

Chart EQ. QTAM Trace: Tape Output 

Phase (PDAIDQTT) (Part 1 of 2) . . . .. .78 

Chart ER. QTAM Trace: Tape Output 

Phase (PDAIDQTT) (Part 2 of 2) 79 

Chart 06. DUMPGEN, COREDUMP, and 

DUMPCORE (DUMPGEN1) .... 88 

Chart FA. DUMPGEN (IJBDMPGN) , 

Generator (Part 1 of 2) 89 

Chart FB. DUMPGEN (IJBDMPGN), 

Generator (Part 2 of 2) .90 

Chart FC. DUMPGEN (IJBDMPGN), 

COREDUMP (Part 1 of 2) 91 

Chart FD. DUMPGEN (IJBDMPGN), 

COREDUMP (Part 2 of 2) 92 

Chart FE. DUMPGEN 1 (IJBDMPGN), 
DUMPCORE: Low Core and Translating 

Dump of Main Storage 93 

Chart FF. DUMPGEN1 (IJBDMPGN), 
DUMPCORE: Format Supervisor Tables ... 94 
Chart FL. LSERV (IJBLSERV) Format and 
Print Contents of the Label 

Information Cylinder 97 

Chart 07. Logic Flow of ESTV File 

Format and Dump Phases .101 

Chart GA. ESTVFMT - DOS ESTV File 

Format Program 103 

Chart GB. ESTVUT - Phase 1 of DOS 

ESTV File Dump 104 

Chart GC. ESTVMT - Phase 3 of DOS 

ESTV File Dump (Part 1 of 2) 105 

Chart GD. ESTVMT - Phase 3 of DOS 

ESTV File Dump (Part 2 of 2) 106 



Charts 



Chart GE. ESTVPR - Phase 2 of DOS 

ESTV File Dump (Part 1 of 2) 107 

Chart GF. ESTVPR - Phase 2 of DOS 

ESTV File Dump (Part 2 of 2) 108 

Chart 08. EREP - Option Handler (Part 

1 of 4) . . . 133 

Chart 09. EREP - Option Handler (Part 

2 of 4) 134 

Chart 10. EREP - Option Handler (Part 

3 of 4) 135 

Chart 11. EREP - Option Handler (Part 

4 of 4) 136 

Chart 12. EREPEDIT Root Phase (Part 1 

of 3) 137 

Chart 13. EREPEDIT Root Phase (Part 2 

of 3) . . .138 

Chart 14. EREPEDIT Root Phase (Part 3 

of 3) 139 

Chart 15. EREPEDIT Record Lists (Part 

1 of 3) 140 

Chart 16. EREPEDIT Record Lists (Part 

2 of 3) 141 

Chart 17. EREPEDIT Record Lists (Part 

3 of 3) . . 142 

Chart 18. EREP2715 and EREPASSM . . . .143 
Chart 19. EREPCLR and EREPHIST . . . .144 
Chart HA. EREP - Option Handler (Part 

1 of 3) ,. .145 

Chart HB. EREP - Option Handler (Part 

2 of 3) 146 

Chart HC. EREP - Option Handler (Part 

3 of 3) . . .147 

Chart HD. EREP Subroutines (Part 1 of 

2) 148 

Chart HE. EREP Subroutines (Part 2 of 

2) 149 

Chart JA. EREPEDIT - Root Phase (Part 

1 of 6) 150 

Chart JB. EREPEDIT - Root Phase (Part 

2 of 6) 151 

Chart JC. EREPEDIT - Root Phase (Part 

3 of 6) 152 

Chart JD. EREPEDIT - Root Phase (Part 

4 of 6) 153 

Chart JE. EREPEDIT - Root Phase (Part 

5 of 6) 154 

Chart JF. EREPEDIT - Root Phase (Part 

6 of 6) 155 

Chart JG. EREPLST (Part 1 of 2) . . . .156 
Chart JH. EREPLST (Part 2 of 2) . . . .157 
Chart JJ. EREPEDIT - Call, Read, and 

New Page Subroutines 158 

Chart JK. EREPEDIT - Disk Address 
Update, Open Files, and Error Message 

Subroutines . . 159 

Chart JL. EREPEDIT - OBR Record End, 
Function Select, and Error Exit 

Subroutines 160 

Chart JM. EREPEDIT - Subroutines . . .161 
Chart JN. EREPEDIT - EREP 2 and HASH 

Subroutines . . 162 

Chart JP. EREPEDIT - EREP 3 and 

SDRCLEAR Subroutines ....163 

Chart JQ. EREPEDIT - Function 

Subroutines (Part 1 of 5) 164 

Chart JR. EREPEDIT - Function 

Subroutines (Part 2 of 5) 165 



Chart JS. EREPEDIT - Function 

Subroutines (Part 3 of 5) 166 

Chart JT. EREPEDIT - Function 

Subroutines (Part 4 of 5) 167 

Chart JU. EREPEDIT - Function 

Subroutines (Part 5 of 5) 168 

Chart KA. EREPCLR - Main Routine . . .169 
Chart KB. EREPCLR - Disk Address 
Update, Write, and Relocation 

Subroutines 170 

Chart KC. EREPCI30 - CIE Record 
Display of Catalog Number or MCK 

Information 171 

Chart KD. EREPLOG1 - ROBAR Parity 

Check Routine 172 

Chart KE. EREPLOG1 - LOGOUT Parity 

Check Routine 173 

Chart KF. EREPCI55 - Subroutines . . .174 
Chart KG. EREPMC55 - Subroutines . . .175 
Chart KH. EREPL0G5 - Subroutines 

(Part 1 of 2) 176 

Chart KJ. EREPLOG5 - Subroutines 

(Part 2 of 2) 177 

Chart KK. $$BSDRUP - EREP Processing 
Suppress File-Ready-for-Recording 

Switch . . .178 

Chart LA. EREP2715 - Initialize and 

Print Type Records ... .179 

Chart LB. EREP2715 - Print Type 1 and 

Type 2 Records 180 

Chart LC. EREP2715 - Print Type 3 and 

Type 4 Records ...••.. 181 

Chart LD. EREP2715 - Print Type 7 

Records . .182 

Chart LE. EREP2715 - Print Types 8-F 

Records . . .183 

Chart LF. EREP2715 - Count 
Channel- Unit and Area Station-Device 

Combinations 184 

Chart LG. EREP2715 - Count 
Channel- Unit and Area Station-Device 

Combinations 185 

Chart LH. EREP2715 - INITREG, PRT, 

and RTNHEX Subroutines .186 

Chart LJ. EREP2715 - CUTOHEX, CONV4, 
DASDTST, TIMEDATA, and BLK1 Subroutines 187 
Chart LK. EREPASSM - Area 
Station-Device Summary Phase (Part 1 

of 4) ... .188 

Chart LL. EREPASSM - Area 
Station-Device Summary Phase (Part 2 

of 4) 189 

Chart LM. EREPASSM - Area 
Station-Device Summary Phase (Part 3 

of 4) . .190 

Chart LN. EREPASSM - Area 
Station-Device Summary Phase (Part 4 

of 4) . .191 

Chart MA. EREPHIST - History Tape 

Builder (Part 1 of 8) 192 

Chart MB. EREPHIST - History Tape 

Builder (Part 2 of 8) .193 

Chart MC. EREPHIST - History Tape 

Builder (Part 3 of 8) ........ .194 

Chart MD. EREPHIST - History Tape 

Builder (Part 4 of 8) . 195 

Chart ME. EREPHIST - History Tape 

Builder (Part 5 of 8) . , 196 



8 DOS System Service Programs 



lart MF. EREPHIST - History Tape 

ailder (Part 6 of 8) • • • 197 

lart MG. EREPHIST - History Tape 

ailder (Part 7 of 8) 198 

tiart MH. EREPHIST - History Tape 

ailder (Part 8 of 8) 199 

tiart MJ. EREPHIST - Subroutines 

Part 1 of 2) 200 

tiart MK. EREPHIST - Subroutines 

Part 2 of 2) 201 

hart 20. 3211 Printer Buffer Load . ,204 

hart 21. 3211 Printer IPL Buffer 

oad Programs 205 



Chart NA, SYSBUFLD - Read Card and 

Print on SYSLOG and SYSLST 207 

Chart NB. SYSBULFD - Set CONFIG Switch 208 
Chart NC. SYSBUFLD - FCB and UCSB 

Buffer Loads 209 

Chart ND. SYSBUFLD - Miscellaneous 

Subroutines 210 

Chart NE. SYSBUFF1 - Verify Forms Are 

Positioned at Channel 1 211 

Chart NF. $$BUFLDR - Load UCSB and FCB 212 
Chart NG. $$BUFLD2 - 3211 Buffer Load 
Error Subroutine 213 



Charts 



O 



D 
O 
to 

to 

CO 

ft 
B 

to 
fl> 
h 
< 

O 
CD 

3 

H 



/" SET LOAD UNIT" 
( SWITCHES 



^.DEPRESS LOAD KEY/ 



J> 



I PL 



IPL BOOTSTRAP 1 
IPL BOOTSTRAP 2 
IPL- PHASE 1 
(SSASIPL2) 



Root phase, ADD, 
DEL > and SET 
Statement Processors 



DOS IPL and 
Job Control 



LOAD AND 
INITIALIZE 
THE SUPERVISOR 
(SSASUPJ) 



Oi 



//EXEC LANGUAGE PROCESSOR 



LANGUAGE TRANS 



PL/I (D), RPG, 
FORTRAN, COBOL, 
ASSEMBLER 



EXECUTE PHASE 
JUST LINK EDITED 



LINKAGE EDITOR 



//EXEC PROCESSING PROGRAM 




USER PROGRAM 





SERVICE PROGRAM 










! DOS System 
i Service Prog 







SJOBCTLA 04-16 



( INTERRUPTS J 



DOS Logical Transi. 



RESIDENT SUPERVISOR 1-10 A and R TRANSIENTS 1 1-15 



INTERRUPT PROCESSORS, 
PHYSICAL IOCS, ERROR 
LOGGING AND 
RECOVERY 



ERROR RECOVERY 
PROCEDURES, 

PHYSICAL 
ATTENTION 




B- TRANSIENTS 1-16 



CANCEL, 
DUMP, 



FOREGROUND 

INITIATOR 

AND 

TERMINATOR 



//EXECMAINT //EXEC CORGZ 



MAINTENANCE 
ROOT PHASE 







COPY SYSTEM AND 

CREATE PRIVATE 

LIBRARIES 



..CONDS OR ALLOC 



DELETE OR RENAME 
ANY SYSTEM OR 
PRIVATE LIBRARY 



MAINTR2 



04 



CATALOG 

RELOCATABLE 

LIBRARY 

(SYSTEM OR PRIVATE) 



CONDENSE ANY 

SYSTEM OR PRIVATE 

LIBRARY 



CATALOG SOURCE 
STATEMENT LIBRARY 
(SYSTEM OR PRIVATE) 



SET CONDENSE 
LIMITS FOR SYSTEM 
OR PRIVATE LIBRARIES 



<QRIVATE LIBRARY^ 

MD5 \yS >v AUTOCOND 

<^ REQUEST ^> 



//EXEC CSERV 


CSERV 18 




CORE IMAGE 
SERVICE 






//EXEC DSERV 


DSERV 16-17 




DIRECTORY SERVICE 






//EXEC RSERV 


RSERV 19 




RELOCATABLE 
LIBRARY SERVICE 






//EXEC SSERV 


SSERV 20 




SOURCE STATEMENT 
LIBRARY SERVICE 



MAINTUP 13-15 



SINGLE STATEMENT 
UPDATE FOR SYSTEM 
OR PRIVATE SOURCE 
STATEMENT LIBRARY 



SYSTEM 
REALLOCATION 



UPDATE SYSTEM 
DIRECTORIES 



CHECK CONDENSE 

LIMITS AND DISPLAY 

DIRECTORY 



yS ^\yes yes y^ X. 

^PRIVATE LIBRARY^ <T AUTO CONDS >> 

>< "-; ^^^ 




o 

&> 

h 
ft 

o 
o 



a 
H . 

CO 

o 
*o 
n> 

fa 
ft 
H« 

to 

CO 
ft 
CD 

B 

h 


2 

B 

*l 
H 



PDAIDS (Problem Determination Aids) 



Introduction 



PDAIDs (Problem Determination Aids) provide 
the option to trace one of the specified 
events during the operation of a program. 
Tracing may be limited to recording the 
events of the problem program, the 
supervisor, or both. 



INPUT/OUTPUT TRACE : The I/O (Input/Output) 
trace function records I/O device activity. 
The data recorded by the I/O trace function 
may be for all or a selected group of I/O 
devices. When an I/O interrupt occurs, the 
data recorded is: 

• I/O old PSW 

• CSW 

When an SIO instruction is issued by the 
DOS supervisor, the data recorded is: 

• device address 

• CCB address 

• CSW 

• condition code 

FETCH/LOAD TRACE : The F/L (Fetch/Load) 
trace function records the order in which 
phases and transients are called from the 
core image library under the control of 
DOS, When a fetch or a load is issued, 
which causes an SVC 1, 2, 3, or 4, the data 
recorded is: 

• location of the SVC, 

• program interrupt key, 

• SVC number, 

• phase or transient name, 

• load address of the phase, and 

• entry address of the phase .» 

At times, SVCs 5, 6, 11, and 14 branch 
directly into the supervisor fetch or load 
routine. The fetch or load (SVCs 1-4) is 
recorded; however, the calling address and 
the SVC values for SVCs 5, 6, 11-14 are not 
indicated in the actual fetch or load trace 
record. 



GENERALIZED SUPERVISOR CALL TRACE : The 
GSVC (Generalized Supervisor Call) trace 
function records SVC interrupts as they 
occur. All SVCs, or a selected group of 
SVCs, may be traced. The data recorded by 
the GSVC trace function is: 

• SVC old PSW, 

• task identification, 

• last three bytes of register 0, and 

• contents of register 1, 

If PTO=YES in the FOPT macro, then SVCs 
issued when the physical transient area is 
busy are not traced. 

QTAM TRACE : The QTAM trace function traces 
the input/output activity of QTAM in three 
areas : 

• SVCs and 31 

• a supervisor-issued SIO 

• an I/O interrupt. 

The I/O old PSW and the CSW are recorded 
when an I/O interrupt occurs. The 
condition code, device, CCB address, and 
CSW are recorded when a supervisor issues 
an SIO. The SVC old PSW and the contents 
of registers and 1 are recorded when an 
SVC or 31 is issued. 



System Consideration for PDAIDs 



If the use of PDAIDs is desired, then the 
following must be performed prior to their 
execution: 

• During system generation, specify 
CE=800 in the FOPT macro of the 
installation tailored supervisor. (See 
Figure 28 in Appendix C for supervisor 
storage allocations.) 

Note : Up to 10,240 may be specified to 
increase the size of the save 
area for the core- wrap mode. 

• Catalog either the absolute or the 
self-relocating version of the main 
phase (PDAID) to the core image library 
prior to its execution. 
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Chart 01. General Logic Flow of the PDAID Programs 



(Get control from\ 
the supervisor J 



Initial izer Charts AA - AK 



The PDAID initializer locates 
the CE area and gets the 
function and module specified 




NO 



Read Parameters 
from SYSIPT 



'IT' 



T 

■GT' 



1 

QT 



I/O Trace 
Function 



Chart 02 



F/L Trace 
Function 



$$BPDAID 
Chart AL 



Fetch $$BPDAID; 



Reset hooks 



C 



EOJ 



j> 



PDAIDITW Chart CA 

PDA ID IT P Charts CB-CC 

PDAID ITT Charts CD -CE 



The I/O Trace function 
traces I/O events, and 
logs them either on the 
device specified or in core. 



PDLIST 



Charts BA - BE 



The Tape-to- Printer utility 
program translates the 
logged information into 
printable format and outputs 
it on the printer. 



Chart 03 



Generalized 
SVC Trace 



PDAIDFTW Chart DA 
PDAIDFTP Charts DB - DC 
PDAIDFTT Charts DD - DE 



The F/L Trace function 
traces F/L events, and 
logs them either on the 
device specified or in core. 



E 



Chart 04 



QTAM 
Trace 



Chart 05 



PDAIDGTW Charts EA - EB 
PDAIDGTP Charts EC - EE 
PDAIDGTT Charts EF - EH 



The GSVC Trace function 
traces SVC events, and logs 
them either on the device 
specified or in core. 



E 



PDAIDQTT Charts EQ - ER 
PDAIDQTW Charts EM - EP 



The QTAM Trace function 
traces QTAM events and 
logs them either on the de- 
vice specified or in core. 



(Return control "\ 
to supervisor J 
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If data provided by PDAIDs is recorded 
on magnetic tape, use the PDLIST program to 
make the data readable. Thus, catalog 
either the absolute or self-relocating 
version of PDLIST to the core image library 
prior to its execution. See the System 
Generation and Maintenance SRL listed in 
the Preface for supervisor specifications 
and cataloging procedures. 



Initiation of PDAID 



You can execute PDAIDs by using standard 
DOS Job Control language from either SYSLOG 
or SYSIPT. The statement 

// EXEC PDAID 

causes the main phase, PDAID, to load at 
the address of the initiating partition. 
Control is given to PDAID for further 
specifications to indicate the type of 
trace to be performed. PDAID issues the 
following message to the operator on 
SYSLOG: 

4C10D PDAID= 

The operator must respond to this 
message with one of the following: 

IT Specifies an I/O Trace. See Note . 

FT Specifies an F/L Trace. See Note , 

GT Specifies a GSVC Trace. See Note . 

QT Specifies a QTAM Trace. See Note . 

XX Terminates the PDAID presently 
running. 

B Indicates PDAID control statements 
are entered through SYSIPT. 

Note : When IT, FT, GT, or QT is specified, 
the operator must give additional 
PDAID control statements through 
SYSLOG. 

Figure 1 illustrates the PDAID control 
statements in the sequence they must be 
used. 

• The © response is valid only for 
SYSLOG and cannot be used as a SYSIPT 
operand. 



• Multiple operands or operator responses 
to PDAID control statements for traces 
with a variable number of functions 
(such as ignoring SVCs) are not 
allowed. Repeat each parameter with 
each variable. Repeat each message 
until either the maximum number of 
variables is reached or a @ response 
is given. 

• GO terminates the PDAID control input, 
and the default is taken for any PDAID 
options that are not specified. When 
you use SYSLOG, GO is a valid response 
(see Figure 1). When you use SYSIPT, 
GO should be the last parameter, and it 
has no operand associated with it. 



Selection of an Output Device : PDAID 
message/parameter OUTPUT DEVICE= permits 
the selection of an output device. Specify 
the device by channel and unit, not by 
symbolic unit. If an output device is 
specified, PDAID checks the address against 
the supervisor PUB and selects the 
appropriate phase for the unit type (tape 
or printer) . 



Selection of Core-Wrap Mode : If an output 
device is not specified, core-wrap mode is 
assumed. The event trace tables (see 
Figures 2, 6, 8, and 11) are kept in the CE 
area. The number of events contained in 
this area depends on the size of that area 
generated at system generation time with 
the CE option of the FOPT macro. CE=800 is 
the minimum that can be selected. If the 
800-byte area is specified, a maximum of 39 
entries can be recorded for F/L and I/O 
traces, 32 entries for GSVC trace, and 30 
entries for QTAM trace. 

If core-wrap mode is selected, an 
alternate area can be used for the trace 
tables (see Figures 2, 6, 8, and 11) 
through the message/parameter AAA= 
(alternate area address) . AAA= and OUTPUT 
DEVICE= are mutually exclusive; when one is 
specified, the other cannot be used. This 
alternate area must be free for use by the 
trace function. Program checks and/or 
unpredictable program operation can result 
if the area is also used by another 
program. With MPS this area may not be 
displayed if it is in a different partition 
than the one being dumped. In such cases, 
a stand-alone dump must be used to retrieve 
the trace tables . 
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h 



SYSLOG /SYSIPT 
Message/ Parameter 

(. 

PDAID= 



SYSLOG /SYSIPT 
Response/ Operand 



FT 

GT 

IT 

i QT 

x: 

(B 



Meaning 



FT - 


Fetch/Load 


Trace 


GT - 


GSVC Trace 




IT - 


I/O Trace 




QT - 


QTAM Trace 





Default 

None • The 
function 
continues . 



XX - Terminate present PDAID function - 
®- Additional PDAID control input 
through SYSIPT 



OUTPUT DEVICE= 




(Note 3) 



l~ 



Specify the hexadecimal channel and 
unit number of either a 
magnetic tape unit or a printer for 
the output device of the PDAID. 
NOTE: A magnetic tape unit is the 
only valid output device for the 
QTAM trace. 



Core-Wrap 
mode . 



H 



AAA= 



'X l llllll , f 

X'hhhhhh'f 

® 

GO 



(Note 3) 



I- 



Specify the beginning and ending 
addresses of an alternate area for 
core- wrap mode. If an alternate 
area is desired , a minimum 
of 512 bytes must be specified. 



CE Save 
Area of the 
CE option 
in the 
FOPT macro. 



H 



TRACE PARTITION= 

(Valid for Fetch/ 
Load, SVC, and 
QTAM Trace 



h 



SP 
BG 
F2 
Fl 

® 

GO 



SP - Supervisor 
BG - Background 
F2 - Foreground 2 
Fl - Foreground 1 

(Note 1) 



Trace all 
partitions 
and the 
supervisor. 



IGNORE DEVICE= 



(Note 2) 



h 




Specify the hexadecimal channel and 
unit number of the device to be 
ignored by the I/O and QTAM trace. 
A maximum of 3 may be specified. 



Trace all 
devices. 



TRACE DEVICE= 

(Note 2) 
IGNORE SVC= 
(Note 2) 




Specify the hexadecimal channel and 
unit number of the device to be 
traced by the I/O and QTAM trace. 
A maximum of 3 may be specified. 



Trace all 
devices. 



I~ 



® 
GO 



Specify the hexadecimal SVC number 
to be ignored by the GSVC trace. A 
maximum of 6 may be specified. 



Trace all 
SVCs. 



TRACE SVC= 
(Note 2) 



h 



® 
GO 



Specify the hexadecimal SVC number 
to be traced by the GSVC trace. A 
maximum of 6 may be specified. 



Trace all 
SVCs. 



GO (Valid SYSIPT 
Parameter) 



GO 
(Valid SYSLOG 
Reponse) 



GO terminates the PDAID control input 
and the default is used for those 
options that are not specified. 



None. 



Note 1: Specification of Fl or F2 is valid for MPS supervisor only. 

31 are recorded for the QTAM trace. 
Note 2: The trace and ignore options are mutually exclusive. 
Note 3: The output device and AAA options are mutually exclusive. 

Figure 1. PDAID Control Statements 



Only SVCs and 
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Chart 02, Logic Flow of the I/O Trace Function 



m 



// JOB TRACE 



/ T . ' 1 




z&JL 



N 



XX 

n 


f Fetch $$BPDAID 






Reset hooks 






C - ) 



Read Parameters 
from SYSIPT 



Point to 
Selected 
Phase 



) C 



Fetch $$BPDAID 



• Reset hooks 

• Load selected 
phase Into CE area 

• Turn on appropriate 
hooks in supervisor 



( 



Devices ^ 
(See (r 

Note 2) M 




EO J (See Note 1 ) 



Supervisor hook 
(SIO, or I/O 
interrupt routine) 



Core 

\l;,?*J<r^ ^ in progress 



Printer (PDAIDITP) 
£1 



Tape (PDA ID ITT) 



—a 

None (PDAIDITW) 

s 




Note 1: At this time the I/O Trace phase has been loaded 
and another job is executed with I/O Events being 
traced. 

Note 2: The device may be a printer or tape, in which 
case PDAIDITP or PDA ID ITT performs the trace. 
If no device is specified, PDAIDITW performs the 
trace . 
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I/O Trace Function 



• trace all I/O activity on the system 



The I/O trace function (Chart 02) provides 
trace tables for input/output devices • 
(See Figures 2 and 3.) 

I/O trace allows the I/O activity of 
programs run under DOS to be traced. 
Tracing consists of: 

• recording the I/O old PSW and the CSW 
when an I/O interruption occurs and 

• recording the device address, the CCB 
address, and the CSW (when the CSW is 
stored in response to an SIO 
instruction issued by the DOS 
supervisor) . 

Either of these is referred to as an I/O 
event . The events may be preserved in a 
rotating buffer (see Figure 5) in core 
(first entry overwritten when the area is 
full, etc) , or output on a printer or tape 
unit. When a tape output is used, the tape 
must be processed by the PDLIST utility 
program to provide readable output data. 



• eliminate a maximum of three devices 



• limit trace to a maximum of three 
devices • 

The trace- limiting options (see Figure 
1) are specified by the initializer 
keywords IGNORE DEVICE= or TRACE DEVICE=. 
All I/O activity is traced if one of these 
option keywords is not specified. The two 
keywords are mutually exclusive. When 
either is specified, the other becomes 
invalid. 

The three limiting options are invoked 
by specifying the channel and unit 
addresses (X'CUU 1 or CUU) of the 
appropriate devices. Symbolic device 
references (SYSxxx) are invalid. 



Data Collection 



i— 



When an I/O interrupt occurs, the I/O 
old PSW and the CSW are stored, as 
follows : 



JI/O OLD PSW 

,. 

| xxxxxxxxxxxxxxxx 



CSW 



xxxxxxxxxxxxxxxx 



When the CSW stored condition occurs 
after SIO, the condition code, device 
address, CCB address, and CSW are 
stored as follows: 

| | CHANNEL | | | 

|C|Unit | CCB J CSW | 
| C JADDRESS | ADDRESS | | 

| x j Oxxx | xxxxxxxx j xxxxxxxxxxxxxxxx | 

You can detect the CSW stored condition 
by checking the PSW portion of an entry 
in the core-dump and determining if the 
system mask byte contains an X" 00*. If 
the system mask byte is not X'OO*, the 
I/O event was an interruption. 



Figure 2. I/O Trace Table Entry 



Tracing Options 



The I/O trace function provides the 
following options. 



I/O trace resides in the CE area and 
performs the actual tracing of I/O events. 
The first entry to the phase causes some 
initialization to occur before the I/O 
event is acted upon. At each entry, the 
phase tests the logical transient area for 
a dump transient; normally, it does not 
trace any I/O activity when a dump is in 
progress. (If it is necessary to trace I/O 
events during a dump routine, the exit 
branch following the compare instruction 
labeled DUMCHK (CETAB+X" 88 • ) should be 
altered to a NOP.) This prevents a dump 
either from overflowing the trace table 
when core-wrap is used (see Figure 4), or 
from causing excess output in output mode. 

If no dump is in progress, the device 
address is matched against either IGN or 
TRC entries to determine if the event 
should be entered into the trace tables. 

Note : It is not necessary to ignore the CE 
output device. I/O events from this 
device are handled internally by the 
module. Events from the CE output 
device are traced if the I/O 
activity originates outside the CE 
module (that is, the device is being 
shared) . 

If the event is not to be traced, 
control is returned to the supervisor 
routine from which the trace was entered. 
If the event involves a device to be 
traced, an entry is made in the trace 
table. At this point, the core-wrap 
returns to the supervisor. 
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Output 



PDAIDITW sets up the following pointers 
(Figure 4) . 



The I/O output phase tests for a full table 
before returning to the supervisor, and 
attempts to output the table when it 
contains enough entries. If the output 
device cannot be accessed, control is 
returned to the supervisor, and output is 
retried at each subsequent entry to the 
trace phase. Limited overflow buffers are 
available in each module: 



(Type | Full j Overflow 
| Output j Table | Entries 

| Printer j 3 Entries | 5 Entries 
j (PDAIDITP) | j 

| Tape | 13 Entries | 7 Entries 

| (PDAIDITT) | j 

L X JL 



Maximum 
Capacity 

8 
Entries 

+ — H 

20 
Entries 



• SLOTl — address of the beginning of 
the save area. 

• NEXT — address of the next available 
slot in the save area. (Because NEXT 
is filled with unchecked new 
information, it may contain either the 
oldest entry in the table, or the most 
recent activity of a device not being 
traced. If the latter is the case, 
ignore the entry.) 

• WRAPADR — address of the end of the 
save area. 

Note : The location of these pointers at 
execution time is CETAB+X^O". 



When the I/O output device must share a 
selector channel or a control unit, the 
overflow capacity can be exceeded, and I/O 
events can be lost. The trace phase tests 
for such losses, and indicates such with an 
* when they occur. (It is recommended that 
output options be selected to avoid such 
losses, and that one or more of the most 
active devices be ignored if an overflow 
occurs.) Figure 3 illustrates output after 
it has been printed. 



PDAIDITW (CORE-WRAP MODE) 



PDAIDITW preserves a fixed number of I/O 
events in a save area that is in either the 
CE area or an alternate save area of the 
supervisor. If the alternate save area is 
specified, the CE save area (generated at 
SYSGEN) is not used* PDAIDITW generates as 
large a save area as possible within the CE 
area. 

You can preserve a maximum of 39 entries 
in the 800-byte CE area. If the CE area 
size is increased (CE=nnnnn, where nnnnn is 
between 800 and 10,240), more than 39 
entries can be preserved (each entry 
occupies 16 bytes) . 

When the area is full, the oldest entry 
is overlaid by each new entry. The output 
phases use a different method for updating 
the trace table (see Figures 4 and 5) . A 
core dump must be used to retrieve the 
tables. 



csw 

PSW FF15000C8A003454 1000355808000000 



1 ►Next Instruction Address 

— ► PGM Mask 
ILC,CC 
Device Address 
*-+• Machine State (AMWP) 
■►STG KEY 
I/O Interrupt, System Mask 

CSW 
PSW t 0QP0p00E FF003648 / 0000000008000000 



-►CCB Address 



-►Channel and Unit Address 



►Always XW 

-►CSW stored condition 



CSW 
PSW*FE0 7000C8 0000000, 1 0003 558 08 000 00 



-►Next Instruction Address 



► PGM Mask 

►ILC^CC 

-► Device Address 



►Machine State (AMWP) 

-► STG KEY 
"I/O Interrupt, System Mask 



-►Indicates that at least one I/O event 
following this entry has been lost 
because of an overflow condition . 



Figure 3. Sample Output for I/O Trace 
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O 3 

Cbft 

(D (D 

CO h 

H* 

3 

^Q 

H 
<! 
(D 

ft 

CO 

H* 

S3 

? 

(D 

2 

O 

<D 

»-3 

tr 

H 
(D 

Hi 
O 

H 



S 



Q 
CO 

3 



0) 



] 


\ 




































D 


{; ?} t ■ 


WRAP 


V 


M 


Log 
CUU 


Output 
CUU 


IGN1/TRC1 IGN2/TRC2 IGN3/TRC3 
CUU CUU CUU 


Alternate Area 
Start Address 


Alternate Area 
End Address 


CHANQ PTR 


, 


L 


D <D 

in a! 


PRT1 


PRT2 


PRT3 


OPT 


Undefined 






These bytes are used only by 

the I/O Trace Function . 








t 


These bytes are J 
used only by the j 






















c 
a 


) 


















< 

LL 










SLOT! 


NEXT 


WRAPADR 


1 


' 




First Available Slot 


New Entry ^ " 1 


1 1 








c 






Newest Entry * 


Next Possible Entry (Oldest Entry) \ 
l_ I 


< 

a 


















t- 




2nd Oldest Entry 














< 






_ _ _ _ 


o 

o 

< 






r 


L, 










Last Available Slot 




I >. 


1 


■ 



Note: When "Last Available Slot" is filled, "NEXT" is reset to "SLOT1", and the table is overlaid with new entries. 

The location of SLOT1 at execution is the address of CETAB+X'CO' for PDAIDITW, CETAB + X'BO' for PDAIDFTW and CETAB + X'E4' for PDAIDGTW. 



H 

o 

CO 






8 






PDAIDITP (PRINTER OUTPUT) 



PDAIDITP is selected when a printer is 
specified as the output device. It 
collects three I/O events, then formats and 
prints them, using a 1403 or 1443 printer. 

If the printer cannot be accessed, 
control is returned to the supervisor. 
Subsequent events are preserved by 'pushing 
up" the table slot, and entering each new 
event at the bottom (Figure 5) . When an 
unreported event is "pushed out 1 of the 
top, an asterisk is set into the I/O area 
to indicate the overflow. Printing is 
attempted at each entry to the phase, until 
successful. If the printer is not ready, 
or indicates errors, the message 4C24A is 
issued on SYSLOG and the system waits for a 
(§) response when the device is made 
ready. 



i I/O Event I 
i i 



I/O Event "pushed out" of table 



I/O Event 



I/O Event 



I/O Event 



! I/O Event 
i J 



Maximum number of I/O events 



New I/O event to be added 



Figure 5. Entering New I/O Events in the 
Trace Table for Output Phases 



The events are written on tape in core 
image (unprintable) format. PDAIDITT 
requires a tape-to-printer operation using 
the PDLIST utility program to retrieve the 
traced events. The tape must be processed 
with the tape drive temporarily assigned as 
SYS005 and SYSLST assigned to a printer to 
obtain readable listings of the traced 
events . 

I/O events are collected in an area that 
may contain a maximum of 20 entries. An 
attempt is made to write the entire area as 
a single record when 13 events are present 
in the table. If the channel is busy on 
the attempted output, control is returned 
to the supervisor SIO routine or interrupt 
handler routine. When the next I/O event 
is received, it is entered in one of the 
five overflow entries, and another attempt 
to output is made. Thus, the records on 
tape contain between 13 and 20 I/O events 
per block. The PDLIST utility program 
takes this into account and prints only the 
valid I/O events. 

Because 20 is the maximum number of I/O 
events that can be recorded, an overflow 
will occur when the 21st I/O event is 
entered in the table. The tape module 
recognizes this condition by checking the 
20th entry location in the table for an 
unreported I/O event. If one is found, a 
flag is set in the preceding (19th) entry 
location. As the 20th entry is 'pushed 
out" (see Figure 5) of the table, the 19th 
entry replaces the 20th, and thus the flag 
is available in the last entry. 

The PDLIST utility program checks for 
this flag when printing, and sets an * , 
indicating that an overflow has occurred 
and an I/O event (s) was lost. The * 
indicator is printed in the entry that 
precedes the missed I/O event (s). 



PDAIDITT (TAPE OUTPUT) 



PDAIDITT collects and writes on an 
unlabeled tape the I/O events that occur 
during execution of the problem program. 



PDAIDITT makes no provision to handle 
error conditions while out putting. If the 
tape unit is busy, an immediate return to 
the supervisor is made. If the tape unit 
is not busy, but a CSW stored condition is 
indicated or the tape unit is inoperable, 
the message 4C24A is issued on SYSLOG and 
the system waits for a (§) response when 
the device is ready. 



20 DOS System Service Programs 



PDAIDS 21 



Chart 03, Logic Flow of the Fetch/Load Trace Function 



Fetch $$BPDAID J 


^ 




Reset hooks 






( s " ) 




; 



/ < " :" ' ■ ' '. -■■"■> ' ;>;. ' : ; 



Log trace 
in CE area 




Log trace in 
specified alternate 
area in core 



Note 1: At this time the F/L Trace phase has been 
loaded and another job it executed with 
F/L Events being traced. 

Note 2: The device may be a printer or a tape in 
which case PDAIDFTPor PDAIDFTT 
performs the trace. 
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Fetch/Load Trace Function 



The F/L (fetch/load) trace function (Chart 
03) allows tracing the order in which 
phases and transients are under control of 
DOS. See Figure 6 for the format of F/L 
trace entries- Tracing consists of 
recording (for SVC 1, SVC 2, SVC 3, SVC 4): 

• the location of the supervisor call 

• the program interrupt key 

• the supervisor call number 

• the name of the phase or transient 
being called 

• the load address of the phase 

• the entry address of the phase 

Note : At times, SVC 5, 6, 11 and 14 branch 
directly into the supervisor fetch 
or load routine. These are traced 
whenever they occur, and appear in 
the output of the trace; however, 
the calling address and SVC values 
do not indicate the actual fetch or 
load. 

Each collection of data is referred to 
as an F/L event. The events may be 
preserved in a rotating buffer (first entry 
overwritten when the area is full), or may 
be output on a printer or tape unit. When 
a tape is used, the tape must be processed 
by the PDLIST utility program to provide 
readable output data. 

Use of the request key during the 
operation of the F/L trace function may 
result in apparently erroneous data due to 
the supervisor action required to handle 
the request. In particular, supervisor 
calls that have already been recorded may 
not be completed, and part of the data put 
out by the specific phase (PDAIDFTW, 
PDAIDFTP, or PDAIDFTT) may pertain to these 
incomplete SVCs. 



(see Figure 1). These options are useful 
only when the user runs several partitions 
at once, and does not wish to trace all of 
them. Normally, only one partition would 
be operating at a given time, and the 
default (trace all partitions) would allow 
both the single partition and the 
supervisor to be traced. 



Data Collection 



F/L trace phases reside in the CE area, and 
perform the actual tracing of F/L events. 
All events are recorded before the phase is 
physically loaded into main storage. The 
first entry to the phase causes some 
initialization to occur before the F/L 
event is acted upon. 

The value in the program interrupt key 
(PIK) is matched against the PRT entries to 
determine whether or not the event should 
be entered into the tables. To conserve 
main storage, the phase test for partitions 
to ignore, rather than partitions to trace. 
PDAID accepts parameters and converts them 
to ignore parameters for the F/L trace 
modules. For example, if Fl, F2, or SP is 
specified, the initializer converts this 
information to an "ignore BG* parameter for 
the F/L trace phase. 

If the event is to be traced, an entry 
is made in the trace table. If not, 
control returns to the supervisor routine 
from which the trace was entered. 



Tracing Options 



Output 



F/L output phases test for a full table 
before returning to the supervisor, and 
attempt to output the table when it 
contains enough entries. If the output 
device cannot be accessed, control returns 
to the supervisor, and output is retried at 
each subsequent entry to the trace 
function. Limited overflow buffers are 
available in each phase as shown in the 
following table: 



The F/L trace functions: 

• trace all SVC 1, 2, 3, 4, and certain 
SVC 5, 6, 11 and 14 interruptions, and 

• limit the trace by partition 
(multiprogramming systems only) . 

Trace limiting options are specified by 
the initializer keyword TRACE PARTITION= 



JType 
I Output 



| Full 
| Table 
4- 



T T 

| Over flow | Maximum 
j Entries | Capacity 



4 



| Printer |2 Entries) 4 Entries | 6 Entries 
j (PDAIDFTP) j | | 

| Tape j 9 Entries | 6 Entries) 15 Entries 

j (PDAIDFTT) j | j 

L X L- X 
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When an F/L event occurs, the phase name, supervisor call, 
address of the supervisor call, program interrupt key, load 
address, and entry address are stored for each fetch or load, 
as follows. 



PHASE | | CALLING | | LOAD | ENTRY | 
NAME | SVC J ADDRESS | PIK | ADDRESS | ADDRESS | 



| xxxxxxxxxxxxxxxx | xx I xxxxxx I XX |xxxxxx j 

I J X X X X. 



H 



xxxxxxxx 



Figure 6. F/L Trace Table Entry 



PDAIDFTW (CORE- WRAP MODE) 



Note : The location of these pointers at 
execution time is CETAB+X'BO". 



PDAIDFTW preserves a fixed number of F/L 
events in a save area in either the CE area 
or an alternate save area outside the 
supervisor. If the alternate save area is 
specified, the CE save area is not used. 



PDAIDFTP (PRINTER OUTPUT) 



Thirty-nine entries can be preserved in 
the 800-byte CE area. If CE area size is 
increased (CE=nnnnn, where nnnnn is between 
800 and 10,240), more than 39 entries can 
be preserved (each entry occupies 20 
bytes) . 

When the area is full, the oldest entry 
is overlaid by each new entry. (Figure 4 
illustrates the method for updating the 
trace table for core-wrap mode.) A core 
dump must be used to retrieve the tables. 

PDAIDFTW sets up the following pointers : 

• SLOT1 — address of the beginning of 
the save area. 

• NEXT — address of the next available 
slot in the save area. (Because NEXT 
is filled with unchecked new 
information, it may contain either the 
oldest entry in the table, or the SVC 
number and calling address from a 
partition not being traced. If the 
latter is the case, ignore the entry.) 

• WRAPADR — address of the end of the 
save area. 



PDAIDFTP is selected when a printer is 
specified as the output device. It 
collects two F/L events, formats them for 
output, and prints them out, using a 1403 
or 1443 printer. See Figure 7 for sample 
output. 

If the printer cannot be accessed, 
control returns to the supervisor. If the 
printer is off-line or is not ready, the 
message 4C24A is issued on SYSLOG and the 
system waits for a (5) response when the 
printer is made ready. 

When two entries have been saved, they 
are formatted for output, and the save area 
is cleared. Two more entries may be saved 
before output is achieved, without an 
overflow condition occurring. However, 
when the I/O area and save area are full 
and an entry must be made, the save area is 
overflowed. The oldest entry in the save 
area is lost, and an * indicator is set in 
the I/O area. Thus, an * in the output 
indicates that the next chronological entry 
(or entries) was lost due to an overflow. 
Entries are double- spaced and printed two 
per line. 
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PDAIDFTT (TAPE OUTPUT) 



PDAIDFTT collects and writes, on an 
unlabeled tape, the F/L events that occur 
during execution of a job stream. The 
events are written on tape in core image 
format. Output from PDAIDFTT is formatted 
into printable characters by the PDLIST 
utility program. The input tape drive must 
be temporarily assigned as SYS005 before 
execution of PDLIST, and SYSLST must be 
assigned to a printer. 

F/L events are collected in a save area 
inside the CE area. When seven entries 
have been made in the save area, the phase 
attempts to output. If the tape drive 
cannot be accessed, control returns to the 
supervisor. If the tape drive is not 
ready, or indicates errors, the message 
4C24A is issued on SYSLOG and the system 
waits for a (§) response when the device 
is made ready. At each entry to the phase, 
the top slot in the save area is checked 
for an entry. If an entry is present, the 
save area is full, and an overflow occurs 
when the current entry is saved. If an 
overflow occurs, a flag is set in the 
oldest entry remaining after the current 
entry is saved. The PDLIST utility program 
checks for this flag when printing, and 
sets an * indicator when the flag is found, 
signifying at least one F/L event was due 
to an overflow. 

Because PDAIDFTT attempts to output when 
it receives the seventh entry and has a 
buffer of four entry slots, there are 
between 9 and 15 entries per 300-byte block 
on the tape. The PDLIST utility program 
therefore checks for a valid entry before 
formatting. 



$$BCLOSE 
\ f 



-001 F68 



PI L-001E30 E-001E30 
\^J \ / \ L. / 

T 

Entry Address 

-►Load Address 

-PIK = All Bound 

1 =BG 

2 =F2 
3=F1 

4 = Attention Routine 

5 = Quiesce I/O 

6 = Supervisor 

-Call Address (This is taken from 
the SVC old PSW; therefore it is 
actually 2 bytes past the calling 
address.) 

Value of the Supervisor Call 

1 - Fetch Phase 

2 - Fetch B-transient 

3 - Fetch A-transient 

4 - Load Phase 

5 - Modify Supervisor Communica- 

tions Region 

6 - Cancel Problem Program 
B - Return from B-transient 
E - Cancel Job 



■ Phase Name 



$$BCLOSE*2 C-001F68 PI L-001E30 E-001E30 



L 



Indicates that at least one F/L event 
following this event has been lost because 
of an overflow condition. 



Figure 7. Sample Output for F/L Trace 
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Chart 04. Logic Flow of the GSVC Trace Function 







Log trace 
In CE area 




Log trace in 
specified alternate 
area in core 



51 



Trace these SVC's 
(Maximum of 6) 



I 



Ignore only 
these SVC's 



(Ma: 



lof 6) 



Note 1 : At this time, the SVC Trace phase has been loaded 
and another job is executed with SVC Events being 
traced. 

Note 2: The device may be a printer or a tape unit, in 

which case PDAIDGTPor PDAIDGTT performs the 
trace. 
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GSVC Trace Function 



The GSVC trace function (Chart 04) builds a 
trace table as SVC interrupts occur. The 
trace table (Figure 8) consists of: 

• the SVC old PSW 

• the task ID 

• the last three bytes of register 

• the contents of register 1 

The trace table entries may be stored in a 
rotating buffer in core (core- wrap mode) , 
or output to a printer or tape unit. When 
tape output is used, the tape must be 
processed by the PDLIST utility program to 
provide readable output data. 



keywords is not specified. The two 
keywords are mutually exclusive: when 
either is specified, the other becomes 
invalid. 



The six SVC limiting options are invoked 
by specifying the SVCs to be traced or 
ignored. The partition limiting options 
are specified by the initializer keyword 
TRACE PARTITIONS This is useful only when 
the user must run several partitions at 
once, and does not wish to trace all of 
them. 

Note : If PTO=YES in the FOPT macro then 
SVCs issued when the physical 
transient area is busy are not 
traced. 



r 1 

When an SVC interrupt occurs, the 

SVC old PSW, task ID, register 

and register 1 are stored as follows: 

| | Task | Last 3 | | 

I | ID | Bytes of| j 

| SVC old PSW| | Reg |Register 1| 
j. + + f ., 

jxxxxxxxx j X j XXX jxxxx j 



PIK value 



Figure 8. GSVC Trace Table Entry 



Tracing Options 

The GSVC function provides the following 
options : 

• trace all SVCs occurring 

• selectively trace up to six SVCs 

• selectively eliminate up to six SVCs 
and trace all others 

• trace in all partitions 

• selectively trace up to three 
partitions ';. ■; 

,• * 

Trace limiting 1 options (see Figure 1) 
are specified by the initializer keywords 
IGNORE SVC= or ! TRACE SV|b=. All SVC 
activity is traced if 6jne of these option 



Data Collection 



GSVC trace resides in the CE area and 
performs the actual tracing of SVCs. The 
first entry to the phase causes some 
initialization to occur before the SVC is 
acted upon. 

The value in the program interrupt key 
(PIK) is matched against the PRT entries to 
determine whether or not the event should 
be entered into the tables. To conserve 
main storage, the phases test for 
partitions to ignore, rather than 
partitions to trace. The initializer 
program (PDAID) accepts TRACE PARTITION= 
parameters and converts them to ignore 
parameters for the SVC trace phases. For 
example, if Fl, F2, or SP is specified, the 
initializer converts this information to an 
"ignore BG" parameter for the SVC trace 
phase. 

If the event is to be traced, an entry 
is made in the trace table. If not, 
control returns to the supervisor routine 
from which the trace was entered. 



Output 



If the SVC event was caused by an SVC being 
issued, the output phases store the 
necessary information in the table but do 
not attempt to move data to the I/O area. 
If, however, the SVC event was caused by an 
SIO or I/O interrupt, the phases first 
store the information in the table and then 
test for a full table. If the table is 
full, the phases attempt an output before 
returning control to the supervisor. 
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PSW-jDl.O4gOOO.5O0O 149 4. 0-001000 54 1-AE00005 4 N-.00. 



T-00, 



Reg. Reg. 1 

Instruction Address 
Program Mask 
ILC,CC 

Interruption Code 
Machine State (AMWP) 
Key 
I/O Interrupt, (Systems Mask) 



U SVC NO 



Task ID. 



■*• Lost Event Indicator 

If an * is printed instead of the P ('*SW' instead of 'PSW), 
this indicates at least one GSVC event following this entry 
has been lost because of an overflow condition. 



Figure 9. Sample Output for GSVC Trace 



JType | Full | Overflow j Maximum j 
| Output j Table | Entries j Capacity j 

j Printer |2 Entries j 4 Entries |6 Entries j 
(. - + + _ H j 

| Tape | 9 Entries | 5 Entries |14 Entries | 
l x j X-. J 

When the output device must share a 
selector channel or a control unit, the 
trace tables overflow capacity can be 
exceeded and SVCs can be lost. The trace 
phase tests for such losses and indicates 
them with an * when they occur. (It is 
recommended that output options be selected 
to avoid such losses, and that one or more 
of the most active devices be ignored if an 
overflow occurs.) Figure 9 illustrates 
output after it has been printed. 



PDAIDGTW (CORE-WRAP MODE) 



PDAIDGTW preserves a fixed number of SVC 
events in either the CE area or an 
alternate save area outside the supervisor. 
If an alternate save area is specified, the 
CE save area is not used. PDAIDGTW 
generates as large a save area as possible 
within the CE area. 

You can preserve a maximum of 39 entries 
in the 800-byte CE area. If the CE area 



size is increased (CE=nnnnn, where nnnnn is 
between 800 and 10,240 bytes), a maximum of 
680 entries can be preserved in the CE 
area. 



When the area is full, the oldest entry 
is overlaid by each new entry. (Figure 4 
illustrates the method for updating the 
trace table for core-wrap mode.) A core 
dump must be used to retrieve the tables. 



PDAIDGTW sets up the following pointers: 



SLOT1 — address of the beginning of 
the save area. 



• NEXT — address of the next available 
slot in the save area. (Because NEXT 
is filled with unchecked new 
information, it may contain either the 
oldest entry in the table, or the SVC 
number and calling address from a 
partition not being traced. If the 
latter is the case, the entry should, be 
ignored.) 



• WRAPADR — address of the end of the 
save area. 

Note : The location of these pointers at 
execution time is CETAB+X'EC*. 
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PDAIDGTP (PRINTER OUTPUT) 



PDAIDGTP is selected when a printer is 
specified as the output device. It 
collects the two GSVC events, formats them 
for output, and prints them using a 1403 or 
1443 printer. 

If the printer cannot be accessed, 
control returns to the supervisor. If the 
printer is not ready or indicates errors, 
the message 4C24A is printed on SYSLOG and 
the system waits for a (S) response when 
the printer is made ready. 

When two entries have been saved, they 
are formatted for output and the save area 
is cleared. Four more entries may be saved 
before output is achieved, without an 
overflow condition occurring. However, 
when the I/O area and save area are full 
and an entry must be made, the save area is 
overflowed (Figure 10). The oldest entry 
in the save area is lost, and an * 
indicator is set in the I/O area. Thus, an 
* in the output indicates that the next 
chronological entry (or entries) was lost 
due to an overflow. Entries are 
double-spaced and printed two per line. 



1 


1 

SVC Event 




SVC event "pushed out" of table 




SVC Event 


V 


y Maximum number of SVC events 


SVC Event 




. 






SVC Event 






1 SVC Event 
I 


1 
J 


New SVC event to be added 



Figure 10. Entering New SVC Events in the 
Trace Table for Output Devices 



PDAIDGTT (TAPE OUTPUT) 



PDAIDGTT collects and writes on an 
unlabeled tape the SVC events that occur 



during execution of the problem program. 
The events are written on tape in core 
image (unprintable) format. PDAIDGTT 
requires a tape-to-printer operation using 
the PDLIST utility program to retrieve the 
traced events. The tape must be processed 
with the tape drive temporarily assigned as 
SYS005 and SYSLST assigned to a printer to 
obtain readable listings of the traced 
events . 



GSVC events are collected in an area 
that may contain a maximum of 14 entries. 
An attempt is made to write the entire area 
as a single record when 5 events are 
present in the table. If the channel is 
busy on the attempted output, control is 
returned to the supervisor SIO routine or 
interrupt handler routine. When the next 
SVC event is received, it is entered in one 
of the nine overflow entries, and another 
attempt to output is made. Thus, the 
records on tape contain between 5 and 14 
SVC events per block. The PDLIST utility 
program takes this into account and prints 
only the valid SVC events - 



Because 14 is the maximum number of SVC 
events that can be recorded, an overflow 
will occur when the 15th SVC event is 
entered in the table. PDAIDGTT recognizes 
this condition by checking the 14th entry 
location in the table for an unreported SVC 
event. If one is found, a flag is set in 
the preceding (13th) entry location. As 
the 14th entry is 'pushed out* of the 
table, (see Figure 10) the 13th entry 
replaces the 14th, and thus the flag is 
available in the last entry. 



The PDLIST utility program checks for 
the flag when printing, and sets an * 
indicator, indicating that an overflow has 
occurred and an SVC event (s) was lost. The 
* indicator is printed in the entry that 
precedes the missed SVC event (s). 

PDAIDGTT makes no provision to handle 
error conditions while out putting. If the 
tape unit is busy, an immediate return to 
the supervisor is made. If the tape unit 
is not busy, but a CSW stored condition is 
indicated or the tape unit is inoperable, 
the message 4C24A is issued on SYSLOG and 
the system waits for a (§) response when 
the device is made ready. 



PDAIDS 29 



Chart 05, Logic Flow of the QTAM Trace Function 



f//EXEC PDAID 



//JOB TRACE 



XX 

f Fetch \ 

I $$BPDAID J 







mmmt^mm^ 



QT 



C 



Read parameters 
from SYSIPT 



Reset hooks 



Cancel if save 
area is not large 
enough 



Point to 
Selected 
Phase 



Fetch 
$$B PDAID 



• Reset hooks 

• Load selected 
phase into CE area 

• Turn on appropriate 
hooks in Supervisor 




//EXEC PDLIST 




Display QTAM 
events by/dumping' 
core 



Note 1 : At this time, the QTAM Trace Phase has been loaded 
and another job is executed with QTAM Events being 
traced . 

Note 2: The device may only be tape, in which case PDAIDQTT 
performs the trace. 



- •. • - 



zs/ 



(Return Control A 
to Supervisor y 
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OTAM Trace Function 



Description and Operation 



The QTAM trace function builds a trace 
table as interrupts occur. There are three 
types of trace events, each having a prefix 
that defines the event type (Figure 11) . 



A V-type event (Figure 11) is created 
when an SVC interrupt occurs and consists 
of: 

• V-prefix 

• SVC old PSW 

• Contents of register 

• Contents of register 1 



An S-type event (Figure 11) is created 
when an SIO interrupt occurs and consists 
of: 

• S-prefix 

• Condition code 

• Overflow indicator (* if overflow has 
occurred) 

• Device 

• CCB address 

• CSW 



An I- type event (Figure 11) is created 
when an I/O interrupt occurs and consists 
of: 

• I-prefix 

• I/O old PSW 

• CSW 



The trace events may be stored in a 
rotating buffer in core (core wrap) or sent 
to a tape unit. When tape mode is used, 
the tape must be processed by the PDLIST 
utility program to provide readable output 
data. 



When an SVC interrupt occurs, the event 
type,, SVC old PSW, register and 
register 1 are saved as follows. 



r t t t 1 

I Type I SVC old PSW | Register 0| Register 1| 
,. + _ + + ^ 



j V | xxxxxxxx I xxxx 



xxxx 



~L_- 



I 



When an SIO interrupt occurs , the event 
type, condition code, CSW status, CAW 
address, and CCW first executed are saved 
as follows. 



| Type | CC | Device | CCB | CSW |Not Used| 
I. + „ + + h + ^ 

| S j X j XX j xxxx I XXXXXXXX j X j 

L J. A J. J._ ±_ J 

When an I/O interrupt occurs, the event 
type, I/O old PSW, and CSW are saved as 
follows . 



j Type j I/O old PSWJ CSW j 
| I | XXXXXXXX j xxxxxxxx j 



Figure 11. QTAM Trace Table Entries 



Tracing Options 



The QTAM trace function provides the 
following options. 



• Trace all SVC and 31, SIO, and I/O 
interrupts . 



• Selectively trace SVC and 31, SIO, 
and 10 interrupts from any three 
devices. 

• Ignore SVC and 31, SIO, and I/O 
interrupts from any three devices. 

Trace- limiting options (see Figure 1) 
are specified by the initializer message/ 
parameters IGNORE DEVICE= or TRACE DEVICE=- 
(The device options are invoked by 
specifying the three devices to be traced 
or ignored.) All SVC and 31, SIO, and 
I/O interrupt activity is traced in all 
partitions of core if one of these options 
is not specified. They are mutually 
exclusive: when either is specified, the 
other becomes invalid. 
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Data Collection 



The QTAM trace phases reside in the CE area 
and perform the actual tracing of QTAM 
events. The first QTAM event causes some 
initialization to occur before it is acted 
upon. At each entry, the trace tests the 
logical transient area for a dump 
transient; normally, it does not trace any 
interrupt activity when a dump is in 
progress. (If it is necessary to trace 
QTAM events during a dump routine, the exit 
branch following the compare instruction is 
altered to a NOP.) This prevents the dump 
from either overflowing the trace table 
when core wrap is used (see Figure 4), or 
from causing excess output in output mode. 

If no dump is in progress, the device 
address is matched against either IGN or 
TRC entries to determine if the event 
should be entered into the trace tables. 



events can be lost. The trace tests for 
such losses, and indicates such with an * 
when they occur. (It is recommended that 
output options be selected to avoid such 
losses, and that one or more of the most 
active devices be ignored if an overflow 
occurs.) Figure 12 illustrates output 
after it has been printed. 



PDAIDQTW (CORE-WRAP MODE) 



PDAIDQTW preserves a fixed number of SVC 
events in a save area that may be in either 
the CE area or an alternate area outside 
the supervisor. If an alternate area is 
specified at initialization, it is used, 
rather than the CE area, to contain the 
trace table. Otherwise, PDAIDQTW generates 
as large a save area as possible within the 
CE area. 



If the event is not to be traced, 
control is returned to the supervisor 
routine from which the trace was entered. 
If the event involves a device to be 
traced, an entry is made in the trace 
table. At this point, the core-wrap module 
returns control to the supervisor. 



Output 



The QTAM output phases test for a full 
table before returning to the supervisor, 
and attempt to output the table when it 
contains enough entries. If the output 
device cannot be accessed, control is 
returned to the supervisor, and output is 
retried at each subsequent entry to the 
trace module. Limited overflow buffers are 
available in each module: 

| Type | Full | Overflow | Maximum | 
| Output | Table j Entries | Capacity | 

| Tape | 10 Entries | 4 Entries | 14 Entries) 

When the output device must share a 
selector channel or a control unit, the 
overflow capacity can be exceeded, and QTAM 



Thirty entries can be preserved in the 
minimum 80 0-byte CE area. If the CE area 
size is increased (CE=nnnnn, where nnnnn is 
between 800 and 10,240 bytes), a maximum of 
602 entries can be preserved in the CE 
area. 

When the save area is full, the oldest 
entry is overlaid by each new entry. 
(Figure 4 illustrates the method for 
updating the trace table for core- wrap 
mode.) A core dump must be used to 
retrieve the table. 

PDAIDQTW sets up the following pointers. 

• SLOT 1 — address of the beginning of 
the save area. 

• NEXT — address of the next available 
slot in the save area. (Because NEXT 
is filled with unchecked new data, it 
may contain either the oldest entry in 
the table, or the SVC number and 
calling address from the partition not 
being traced. If the latter is the 
case, the entry should be ignored.) 

• WRAPADR — address of the end of the 
save area. 

Note : The location of these pointers at 
execution time is CETAB+X f 0180'. 



32 DOS System Service Programs 



Sample Output for SVC and 31 SVC Interrupt. 



PSW-FF0500004A006B5C R0-000000FF. Rl -00006400 



L -^Reaister '—►Real 



Register 
Next Instruction Address 
►PGM Mask 
ILC,CC 
Interruption Code 
U-Machine State (AMWP) 
l^STG. Key 
-►I/O Interrupt, Systems Mask 
•"*" If previous record has overflowed 



Register 1 



Sample Output for a supervisor-issued SIO. 



CC- 1 000ECCB-FF002348 CSW-00 0023780C D00000 




Byte Count 



-Status 
-Command Address 



-► CCB Address 



-►Device 
-Condition Code 
L - ►"*" if previous record has overflowed 



-Key 



Sample Output for I/O Interrupt. 



PSW-FF070 01F40 006B5C CSW-000061 78 8 00 000 3 A 



-*-Byte Count 



-►Status 
-Command Address 



L-^Key 
'►Next Instruction Address 
► PGM Mask 
ILC,CC 
— ► Interruption Code 
—►Machine State (AMWP) 
-►STG. Key 
-►I/O Interrupt, Systems Mask 
ii*u jf prev f ous record has overflowed 



Figure 12. Sample Output for QTAM Trace 
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PDAIDQTT (TAPE OUTPUT) 



PDAIDQTT collects and writes on an 
unlabeled tape the QTAM events that occur 
during execution of the problem program. 
The events are written on tape in core 
image (unprintable) format. Thus, this 
requires a tape-to-printer operation using 
the PDLIST utility program to retrieve the 
traced events. The tape must be processed 
with the tape drive temporarily assigned as 
SYS005, and SYSLST assigned to a printer to 
obtain readable listings of the traced 
events. 

QTAM events are collected in an area 
that may contain a maximum of 14 entries. 
An attempt is made to write the entire area 
as a single record when 10 events are 
present in the table. If the channel is 
busy on the attempted output, control is 
returned to the supervisor SIO routine or 
interrupt handler routine. When the next 
QTAM event is received, it is entered in 
one of the four overflow entries, and 
another attempt to output is made. Thus, 
the records on tape contain between 10 and 
14 QTAM events per block. PDLIST utility 
program takes this into account and prints 
only the valid QTAM events. 

Because 14 is the maximum number of QTAM 
events that can be recorded, an overflow 
occurs when the 15th QTAM event is entered 
in the table. PDAIDQTT recognizes this 
condition by checking the 14th entry 
location in the table for an unreported 
QTAM event. If one is found, a flag is set 
in the preceding (13th) entry location. As 
the 14th entry is "pushed out" of the table 
(Figure 13) , the 13th entry replaces the 
14th, and thus the flag is available in the 



last entry. The PDLIST utility program 
checks for this flag when printing, and 
sets an * indicator, noting that an 
overflow has occurred and a QTAM event (s) 
was lost. The * indicator is printed in 
the entry that precedes the missed QTAM 
event (s). 

PDAIDQTT makes no provision to handle 
error conditions while outputting. If the 
tape unit is busy, an immediate return to 
the supervisor is made. If the tape unit 
is not busy, but a CSW stored condition is 
indicated or the tape unit is inoperable, 
the message 4C24A is issued on SYSLOG and 
the system waits for a (S) response when 
the device is made ready. 









— - 




QTAM event 


QTAM event "pushed out" of table 


QTAM event 


) 


QTAM event 


QTAM event 


I 

J 


V Maximum number of QTAM events 




QTAM event 


QTAM event 

._ 


New QTAM event to be added 











Figure 13. Entering New QTAM Events in the 
Trace Table for Tape Output 
Devices 
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Tables Used by PDAID 



Byte 




4 
8 
12 
16 
20 
24 
28 
32 
36 



i—t — t — t — i 

CEAREAND 

LTA 

H— f— h- 

CEINTRHK 

-+— +— +-H 

CESIOHK 

M-— +— +-H 
III 
■-+— I 



I I I 



-+— +— +-H 

CEFLTHKl 

H-+— +— +-H 

CEFLTHK2 

-+— +-- +-H 

I I I 
t-+— +—+-H 

III 



Address of end of CE area 
Start of logical transient area 
Address of I/O interrupt hook* 
Address of SIO-CSW stored hook* 

Reserved 

Address of SVC monitoring hook* 
Address of F/L hook* 

Reserved 



* A hook is coding introduced at supervisor 

generation. The coding normally branches around 
itself. The initialization makes the branch 
instruction a NOP to allow a CEAID function to be 
performed. 

This is a 40 -byte table , located on a fullword 
boundary, and pointed to by the COMREG. It is 
followed by the CE area. 



j 



Figure 14. CE Address Table (CETAB) 



I/O Trace 



I 

h 

I 

Note: 



T T T T 

I/O old PSW (see Note) 



Channel Status Word stored 



j 



L 



If the first byte is X'OO", the entry was made 
due to a CSW stored on an SIO. In this case, 
the channel and unit address and the CCB 
address are plugged into the I/O Old PSW entry, 
and no PSW information is saved. 
(See Figure 2.) 



Figure 15. 



Trace Table Entries (Part 1 of 4) 
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|F/L Trace 

| Byte , T T T T T T T -, 

| Phase Name | 

|. + + + + + 4. 1. 1 

8 I SVC I I I I 

I No. I Calling Address | PIK | Load Address | 

(. + + + + x. X- x J 

16 I Entry Address | 



Figure 15. Trace Table Entries (Part 2 of 4) 



GSVC Trace | 

I 
Byte r T T T T T T T -, I 

J SVC old PSW [J 

|. + + + + + _ + + H | 

8 I Task I Last three bytes | Register 1 j| 
I ID J of Register | | j 

j 




Figure 15. 



QTAM Trace 





SVC Interrupt entry 




1 Type | 

L X 


T T T T ™T "T- T 

SVC Old PSW 

_,,_!. i 1 ,-«J X- X X™^., 


1 

j 


T 

1 
L 


1 1 I 1 — r - r t 

Register | Register 1 

X X X L-. L... L 1 


1 

1 



SIO Interrupt entry 

j" j Condi T T I T ^ I 

I Type I Code I Device | CCB Address j 

j Channel Status Word | 

L X X X X X J J J 

I/O Interrupt entry 

I Type I I/O old PSW I 

L- + + + + + + „ + , i 

I Channel Status Word | 



Figure 15. Trace Table Entries (Part 4 of 4) 
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Byte 



I 



■T T T" 

Phase Name 



, — i — , + — 

8 JVER JMOD | Log 
| | | CUU 
|. + + + 

16 JIGN2/TRC2J IGN3/TRC3 
| COO | CUO 
J. .| |. + ^ 

24 | Alternate Area End 
j -! 1 + H 

32 j PRTl | PRT2 j PRT3 |OPT 
I i X J. 



+- 



H 1 



+- 



Output I IGNl/TRCl | 
COO j COO j 



(Alternate Area Start j 

I 
+ f + ., 

CHANQ PTR j 
+ + + ) 

Register 10 | 

... 1 A_ X_ J 



Displacement 


Label 


0-7 


Phase Name 


8 


VER 


9 


MOD 


10-11 


LOG 


12-13 


Output 


14-15 
16-17 
18-19 


IGNl/TRCl ) 
IGN2/TRC2 > 
IGN3/TRC3 ) 


20-23 


Alternate 
Area Start 


24-27 


Alternate 
Area End 


28-31 


CHANQ PTR 


32 
33 
34 


PRTl) 
PRT2 > 
PRT3) 



Description 
Phase being run 
Version number in hex 
Modification level in hex 
Address of system log device 
Address of output device 

Address (es) of devices to ignore or trace 

Start address of alternate area 

Ending address of alternate area 



Address of channel queue pointer for output 
device 



Partition (s) to be ignored* 



35 



36-39 



OPT 



Register 10 



Option byte 



X'00* = TRC device 
X f 80 f = IGN device 



Save area for register 10 
(used by GSVC trace only) 



* The initializer inverts the logic- When the user specifies a partition (s) 
to be traced, PDAID enters the partition (s) to be ignored in the standard 
preface table. 

Figure 16. standard Preface in CE Area for I/O, F/L # GSVC f and QTAM Traces 
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SWITCH 
Bits 12 3 4 5 6 7 



X'OO' - TRACE 
X'80' = IGNORE 

PRTSW 
Bits 1 2 3 4 5 



- Reserved 
-Card Input 

- IGNORE and TRACE Parameters Read 

- Ignore Alternate Area 

.. "GO" Parameter Acceptable 

- Console Typewriter Input 



KEEPSW 
Bits 12 34567 



Reserved 

Ignore Foreground 1 Partition 
Ignore Foreground 2 Partition 
Ignore Background Partition 
Ignore Supervisor Partition 



RTNSW 
Bits 1 2 3 4 5 6 7 













u 





















Reserved 

GSVC Trace Called 

QTAM Trace Called 

Reserved 



Fetch/Load Trace 
I/O Trace 



CDTYPCRX 
Bits 1 2 3 4 5 6 7 











' — — J L 

















Typewritten Card Correction Read 

Reserved 

Last Card Read 
Count - Only Parameters 
Partition Needed 
Multi-programming System 

or Batch Job Foreground 

System 



Figure 17. Switches Used by PDAID 



38 DOS System Service Programs 



Chart AA. PDAID Initializer: Determining the Function 



PDAID 



INITIALIZE 
THREE BASE 
REGISTERS 



♦INDICATE RESET 
» OF HOOKS IN 
* SUPERVISOR 



*REL ADCONS ENS 
* AREA GENED. 
•DET TABLE SIZE 



ASK4AID X 
TYPOUTRT 



» I/O, SVC, ». 

F/L OR QTAM .♦ 
». TRACE .* 



* TURN OFF 

SWITCH 

INDICATING 

TRACE 

* SELECTED 



ITRTN 
FTRTN 
GTRTN 
QTRTN 



POINT TO 

MSG 1 

4C10D 

PDAID= 



POINT AT 

TRANSIENT 

NAME 



SVC 2 

FETCH 

$$BPDAID 



CONSOLE 

INPUT 
SWITCH 



CARD 
INPUT 
SW ON 



FIRST 

TIME 

THROUGH 



**G3*«****» 
» SET 

FSTIMSW 
TO TAKE NO 

BR LEG 



HI *- 

* CARD 
INPUT 
SWITCH 
ON 



»«• Jl***»**« 

GET 

PDAID= 

PARAMETER 

FROM PARAM 

LIST 



THIS SELECTION IS 
MADE IN THE SUBROUTINE 
MENTIONED IN THE 
PREVIOUS BLOCK. 



ASKAID 

TYPOUTRT 



**»G4**»««*» 

POINT AT 

■ INVALID 

PARAMETER 

SPECIFIED' 
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Chart AB. PDAID Initializer: Initializing the Function (Part 1 of 3) 



QTRTN 
ITRTN 
FTRTN 
GTRTN 



» SET TRACE * 
"TYPE IN PHASE* 

NAME ANO 
» INITIALIZE * 

« WRAP MODE * 



*A2 
THIS 

DECISION 
MADE BY 
TYPINRTN, 
CHART AF. 



* B5 «.. 

PRTGET 



« C3 
SVCIGN 



Dl ». 

.♦OUTPUT «- 

DEVICE «. NO 
PARAMETER .*... 
. READ .» 



ASKODQST 

«*»»D2»«* 
TYPOUTRT 



MESSAGE 4C11 
•OUTPUT DEVI 
CUU' 



•**E1*«*»*»« 

MOVE CARD 

PARAMETER 

TO TYPE-IN 

AREA 



* Bl* 
CKOUTOD 



OPTIONS 

CUURESP X 
• »«»E2»*< 
TYPINRTN 



* ROUTINE 

PREVIOUSLY 
». ENTERED . 



#«D3»*»»**» 
* INDICATE 

ROUTINE 
PREVIOUSLY 

ENTERED 



»»E3»»*«**» 

« CHANGE 

TRACE 

MESSAGE TO 

IGNORE 

» 4C15D 



*»D4*»«»*»* 


**»**D5 **«» »*«»»* 


INITLZ * 


♦PRTQUES AJ* 


CNTR=6 * 




AND STORAGE « 


* TRACE * 


POINTER * 


* PARTITIONS= * 




» 4P12D * 


»***»»»«»•* 





•STORE A MAXIMUM* 

* OF THREE * 

* PARTITIONS * 



ANY 

RESPONSE 

«A2 



FINDSVCS 

**F3*»*»*«» 

• CHANGE 

* KEEP SW 

* TRACE=X , 00' 

* IGNORE= 

* X«80» 



STORE 

WORK 

REGS 



GET SVC 

TRACE OR 

IGNORE 



RESTORE 
WORK 
REGS 



PREVENT 

CHANGE 

IN OPTIONS 

SW=X«10' 



•♦J4«*«»*** 

DECREMENT 

STORAGE 

POINTER 

AND 
COUNTER 



MOVE CARD 

RECORD 

PARAMETER 

TO WORK AREA 



« C3» 
SVCCNVT 



X 
C3 



40 DOS System Service Programs 



Chart ABA. PDAID Initializer: Initializing the Function (Part 2 of 3) 



AAAGET .*. 




. •. 


OPTIONS .». 


Bl • . 


B2 •. 


B3 ♦. 


.* *. 






-• ». YES 


.« •. YES 


.» I/O •. YES 


•. CARD INPUT .*.... 


». CARD INPUT 


». OR QTAM 








•. TRACE .• 
















». .» X 


• NO 




• NO 


•NO ♦ •••* 

»«*• . »AB * 

* » * B4* 

• C3 *... • • 

»••** '. SVCGET 


ASKAAA X 




X 


X 


•«»*C1*»«*»«*»»** 




»»»»C2* ••*•*»*•»» 


»»»*C3»««»»«»*»»« 


TYPOUTRT AF 




TYPOUTRT AF 


GETIGNS AG 










4C27D 




4C22A 


GET IGNORES 


* AAA= • 




* AAA= WITH ♦ 
BAD PARAMS 


• OR TRACES • 


• ••» 












* Dl »... 












"x.... 




»*»» . 






READAAA X 




X 


X 






••♦»D2»***» *«»*»» 


»*D3«*««»*« 


TYPINRTN AF 




TYPOUTRT AF 










* INITIALIZE • 


GET 




AC17D 


» AND STORE * 


» RESPONSE » 




« INVALID » 


♦ IGNORES • 






PARAMS SPECF 


» » 




***• * 














X 




Ix ' 






• H3« 


X 




»•♦* X 




• Dl • 


ONLIES .•. 


El* "». 




E3 ». 


• * *. 




••IGNORES*. 


.» AAA= • . NO 




.* ACCEPTED *. YES 


». SPECIFIED 




•. OR FIRST 






*. TIME .» 








«. .* X 




*. .* X 


♦YES *•«• 




•NO *••»• 






»••» . »AB • 


» B3 ♦ 




• • * B5« 






•AG »... . » • 


**** 




• K3« . • 
••♦• . PRTGET 


DECPHAAA X 




X 






••F3»»»»«»» 


•DECIPHER ABA* 


••♦*F2»»»»»«»«» 








» CHANGE • 


* CHECK THE * 


• DECIPHER » 


• IGNORE TO • 


• ADDRESSES • 

• OF ALT AREA * 




• TRACE • 






X 


X 








X 


• C3 * 


Gl ». 


••••»G2«***»*»**« 










.*" VALID '♦. NO 


• INITIALIZE • 




». ALTERNATE 


• FOR CHECKING » 




». AREA .• 


• ROUTINE • 




*»- .»* x 


•••»«•*••»••«»••• 





•••••H2******** 

• VERIFY THE 

• ALTERNATE 

• ADDRESSES 

• ARE VALID OR 
•INVALID »K 



**J2«»»*»*» 

RETURN TO 

CALLING 

ROUTINE 



IF ADDRESSES ARE VALID, 
THEY ARE ALIGNED TO 
A FULLWORD BOUNDARY. 
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Chart AC. PDAID Initializer: Initializing the Function (Part 3 of 3) 



CKOUTOD X 
.♦#*«B1**» 
•PARAMCNT 



BUILD SYSLOG 
AND SYSRDR 

CCW'S 



GET SIZE OF 

CE AREA 

AND STORE IT 



X 

**». YES 
•HI .*... 


D2 

NO .*" DE 
....*. SUP 






*»N0 




!x 





«»*E2«»»«»«* 

PUT DEVICE 

INDICATOR 

IN PHASE 

NAME 



ISSUE 

MESSAGE 

*H1 



*AB * 
* D2* 

CUURESP 



* POINT TO 

* COMMUNICATION 

* REGION 



.» SIZE *. 

•GT OR EQUAL TO. 

*. 800 .» 



JOB *. 
FOREGROUND .» 
. SYSTEM .* 


YES 








• NO 
< 








TURN ON- * 
MULTI- * 
PROGRAMMING « 
SWITCH » 




♦ 






X 





*«E4*»»»» 
CANCEL 
SVC 6 



» POINT TO 
•COMMUNICATIONS 
* REGION 



CLEAR AREA 
USED BY 

INITIALIZER 
AND POINT 
TO COMREG 



SAVE 

SYSLOG 

•CUU' 



RETURN 

TO CALLING 

ROUTINE 



• HI 
IF DELIMITER/CHARACTER IS 
IN ERROR OR DEVICE IS 
NOT SUPPORTED, THEN 
ISSUE 'INVALID PARAMETER 
SPECIFIED', MESSAGE 4CI7D. 
IF THE DEVICE IS NOT 
IN THE PUB TABLE, 
THEN ISSUE 'CUU NOT 
IN PUB TABLE', MESSAGE 4C20D. 



FIND 
EXTENSION 
. ADDRESS . 



ISSUE MESSAGE 4C19I 
•INSUFFICIENT CE AREA 
GENERATED— JOB CANCELED' 



NOAREA 

TYPOUTRT 



*J4 
ISSUE MESSAGE 4C25I 'NO 
CE AREA GENERATED— JOB 
CANCELED'. 



»K3»*»»» 

SVC 6 

CANCEL 
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Chart AD. PDAID Initializer: Card Input Routine 



THIS DECISION IS MADE IN THE 
SUBROUTINE MENTIONED IN THE 
PREVIOUS BLOCK. 





N0DBL2 .*. 




A5 ». 


«###A4*****»»*» 


.•OUTPUT * 




NO. "DEVICE AND 


N0DBL1 « 


...».AAA=SPECIFI 


* 


». CATION 




. • • .« 



TURN ON 
CARD 
INPUT 

SWITCH 



GET CARD - 

READ CARD 

FROM SYSIPT 



IGN ». NO 

PARAMETER .*..> 
. READ . » 



TRC 
PARAMETER 
. READ 



.»SVC TRC«. 
.» PARAMETER « 
». READ FROM 
*. CARDS .» 



*AA « 
• Hl» 

WHICHONE 

X 

TYPOUTRT 
'. * *F5 



C4 «. 

•SVC IGN». 

PARAMETER 

READ FROM 

CARDS . 


*. NO 


•»»*C5«*»*«*«* 

TYPINRTN A 

READ 
• RESPONSE 


» . . • 


X 





• Dl 
LSTCDCHK 



Dl *. 

/* CARD 



LOGDBLER 

DBLSTYPE X 
•••«D3»* 
TYPOUTRT 



NO 

X 

♦ AD » 

* Bl* 

KEY1CHK 



X 

#»»*F4»»» 
TYPINRTN 



„•• 


DBLSCHK .*. 


GL ». 


G2 •. 






• ALL «. 


.• CONTROL » 


COLUMNS .• 


*. CARD 


«. CHECKED .» 


*. READ .» 










• YES 


• NO 


X 






NOCTLCD 




CDERRLOG 


* Bl » 


X 




«*»»H2***»»*»* 


#»*» 


TYPOUTRT A 








•CONTROL CARD 




♦ MISSING* 




MESSAGE 4C21A 



•Jl 

ISSUE MESSAGE 4C23D, 
•TRACE' AND 
IGNORE PARAMETERS 
PRESENT. WHICH 
ONE SHOULD 
BE KEPT. 



♦ HI* 
WHICHONE 



1 <+C28D' - OUTPUT DEVICE 
AND AAA PARAMETERS 
PRESENT. WHICH ONE 
SHOULD BE KEPT. 



»»»*J2******»«»»* 




J3 «. 




J4 » 


SPCLNGRD AF 














.• TRC ». 


Ml 1 


.* IGN 






•. RESPONSE .» 




....X». RESPONS 


• RESPONSE • 






























• YES 




• YE 


x 












KEEPTRC X 




KEEPIGN X 


K2 ». 




*«K3*»»«*»* 




».K4*»»» 












.* ANY ♦. NO 




• CLEAR * 




• CLEAR 


». RESPONSE ...... 




• 'IGN' « 




• 'TRC 


*. »A3 .* 




» BUCKET * 




• BUCKET 


». . » . 










♦ . .* X 










•YES •••• 


. 




. 












* Bl 








X. 



» Hl» 
WHICHONE 



IF RESPONSE IS 'IGNORE' 
CLEAR TRACE PARAMETERS 
AND IF 'TRACE', CLEAR 
IGNORE PARAMETERS. 
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Chart AE. PDAID Initializer: Keyword Verification 



*A0 » 






















« El« 




































« 82 » 


» 83 » 




* B4 » 


» BADCARD 
» 85 *..'. ) 


X 






















KEY1CHK .». 












X 


X 




X 


BADCARD X 


Bl *. 












h#*»B2*«******** 


*»»#*B3**»»*»«»*» 


#*»#*B4»*«»***»»* 


•♦»**B5»*»««*** 




• 








* 


>ARAMCNT AK» 


•PARAMCNT AK« 


* 


* 


« 








YES 












CHECK FOR » 


» RESTORE DATA 


». PDAID= 












GET LENGTH » 


* GET LENGTH * 




SYNTAX ERROR * 


* AS IT WAS 


*. 




• 


. 




» 


OF PARAMETER • 


» OF PARAMETER « 


* 




•BEFORE TESTING 






























X 














***•*•«•»•*•*** 


• NO 










































. 






* HI 


» 
























































X 












X 


X 




X 




KEY2CHK .*. 




















BLNKCHKC X 


CI ». 












C2 *. 


C3 ♦. 




C4 ♦. 


#*»»«C5*»*****« 
























.* OUTPUT 




*. 


YES 






.* VALID ». NO 


NO .* VALID ». 




* SYNTAX ». NO 

OK ...... 


* FIND THE 
» END OF 

• THE DATA 








» 


. 






«. «E3 .» 


». »E3 .« 





POINT 
TO NEXT 
COLUMN 



**»D5»**»*»* 

CALCULATE 

NUMBER 

OF DATA 

CHARACTERS 



« TYPED 

CORRECTION 
». READ 



KEY4CHK .*. . KEY6CHK .». 


Gl ». 




G2 *. 








YES .» «. NO 




* TRACE *. 


...*. 'GO' .* 


X*. 


PARTITION= .« 














X «. .# 










•YES 


AD » *»»♦ 






E2* * » 






* * ...» HI » 












ETLSTSW X »*»* 






CHKMORE .». 




X 


HI *. 




***H2*** ******* 








.* NEXT *. YES 




STORE IN ♦ 


». COLUMN ...... 




PARAMETER • 


*. BLANK .* 


» 


LIST • 








*. .* X 






•NO »»•** 






»AD * 






» Bl« 
















X CRDINP 






Jl ». 












.» NEXT ». NO 






*. COLUMN A .*.... 






*. COMMA .» 







• SHIFT SAVED 
•SVCS AND STORE 

• NEW ONE 



POINT AT 

NEXT COMMA 

OR BLANK 



*»***H4«»*»»«»»* 
» SHIFT SAVED 
•SVCS AND STORE 

• NEW ONE, POINT 

• AT NEXT COMMA 

• OR BLANK 



«J4 

ISSUE MESSAGE 4C22A 
•INVALID KEYWORD OR 
PARAMETER, ENTER 
CORRECTED CARD VIA 
SYSIPT OR SYSLOG.' 



»*F5»****«»* 

WRITE BAD 
CARD ON 
CONSOLE 



WRITE 
UNDER BAD 
CHARACTER 



POINT AT 
NEXT ENTRY 
ON THE CARD 



CDERRLOG X 
•»»»K3»»* 
TYPOUTRT 



YES .« ENTERED 
....*. AS A SUB- 
». ROUTINE 
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Chart AF, PDAID Initializer: Console Input/Output Routines 



TYPOUTRT 



GET 

LENGTH OF 

FULL MESSAGE 



»#A4«*»«*« 
TYPINRTN 



SET UP FOR 

MAXIMUM 

LENGTH 

RESPONSE 



•♦A5«*»*«» 
SPCLNGRD 



SET 

UP WRITE 
CCW 



SET 

UP READ 

CCW 



GNRTN X 

* READ * 
RESPONSE 


• D5 
THIS DECISION 
IS SHOWN IN 
THE FLOWCHARTS 
WHERE 'TYPINRTN 
OCCURS. 

* E5 » 

xl 


X 

E4* *». 

.«* ANY "*. NO 
•. RESPONSE .*... 


X 
» RETURN 



GET 

WRITE 

CCB 



*F5«*»** 
SVC 6 

CANCEL 



*HL*«**» 
RETURN 



.* RESPONSE 

». TO CARD 

*. ERROR 



•INVALID 

PRMTR SPECFD' 

4C17D 



NDMORE X 

TYPOUTRT AF 

'INVALID 
« PRMTR SPECFD'* 
4C17D 
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Chart AG, 



PDAID Initializer; 
(Part 1 of 2) 



Get IGN/TRC Parameters EOJ Routine; Check Display Limits 



»A1*«*»»* 
GETIGNS 



• A3 
THIS MESSAGE IS 
EITHER — 
4C13D OR 4C14D 
DEPENDING ON THE 
USER RESPONSE TO 
THE FIRST MESSAGE, 
THE OTHER MAY, OR 
MAY NOT BE SUBSTITUTED. 
HOWEVER, THE REST OF 
THE CODING REMAINS THE 
SAME. 



•C3 . 
THIS DECISION IS 
MADE IN THE 
SUBROUTINE 
MENTIONED IN THE 
PREVIOUS BLOCK. 



IGNRESP 

••*#01»*» 
TYPINRTN 



* * »«ABA-E3 
ONLIES 



YES .» IGNORE 
...*. OR TRACE 
». OPTION 
♦.USED .♦ 



SET KEEPSW 

TO IGNORE 

X'80» 



»A5 
AB-B5,C5,E5 
AF-J4 
AJ-H2 



»B5 
LABELS THAT APPLY 
THIS ROUTINE ARE— 
F1TRCHK 
F2TRCHK 
BGTRCHK 
SVTRCHK 
CONVERT 
CHKSVIGN 
CHKBGIGN 
CHKF2IGN 
CHKF1IGN 
RETCONV 



SAVE 

THE 

PARAMETERS 



ANY 

RESPONSE 

*C3 



• 


*ONLIES 


• 








ABA-E3 




CIGNIC ) 






TR 


( 






»*»#»F1***«##»»** 




•PARAMCNT 


AK* 










* CHECK CUU 






* RESPONE 








( 












Gl • , 






.* *. 






.» ANY 






*. ERF 


IOR 


.* 



» SELECT AND * 
•SAVE PARTITIONS* 
» *B5 • 




INITIALIZE 
PHASE 
NAME 



•DELIMITER/ *. 

CHARACTER . 

♦.ERROR *C3.* 



IGNTRCER 

*«***G3*»* 
•IGTRERCD 



•INVALID 

PRMTR SPECFD 

4C17D 



•CUU NOT IN 
PUB TABLE' • 
MESSAGE 4C20D 



IGNRSPCD 

«*«*J3«*» 
TYPINRTN 



YES .♦ ANY 
...». RESPONSE 
». »C3 
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Chart AH. 



PDAID Initializer: 
(Part 2 of 2) 



Get IGN/TRC Parameters EOJ Routine; Check Display Limits 



#»A5«»»*»* 
SVCERRCD 



STORE TWO 

BYTE 
RESPONSE 



LOG QUESTION 
4C16D 'TRACE 
SVC 



SET 

CONVERSION 
LENGTH 



SVCRESP X 
#«*«D1**» 
TYPINRTN 



CONVERT 
SVC TO 
BINARY 



»*»»D4«»*»»»* 


»• 


RETURN 




TO CALLING 




ROUTINE 





* 


El ». 

»* ANY ** 

RESPONSE 


NO 

eob! 






E3 *. 

YES .** "*. 
...*. ERROR 




"•YES 


X 

*AB * 
* C3* 




* F2 * 


**N0 




X 

nt*»Fl******** 

SET DELIMITER 
ERROR CODE 


SVCIGN 

SVCERR 

** »SV 


.X 




I 


X 
»*F2***»»*»*»* 
CERRCD AJ* 

LOG * 

PRELIMINARY * 

MESSAGE * 


X 
»»**F3*<*'******* 

* RETURN 

* TO CALLING 

* ROUTINE 



C5 
.» WAS *. 

♦PRELIMINARY* 

MESSAGE 
*. LOGGED .* 



##D5*****«» 

* MAKE » 

• DECISION AT * 

SW 15 AN 

•UNCONDITIONAL* 

•BRNCH (YES)* 



LOG QUESTION 
4C16D 'TRACE 
SVC 



»*»F5******** 



Gl *. 

.♦ARE HEX*. 

•DELIMITERS * 

PRESENT 
♦. *J2 .♦ 



LOG THE 

ERROR 
REASON 



RETURN TO 
CALLING 
ROUTINE 



•DELIMITING 

QUOTE 
*. PRESENT . 



*»**J1**«»*»»** 

SKIP OVER HEX 

DELIMITERS 

AND STORE 

TWO BYTE 

SVC RESPONSE 
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Chart AJ. PDAID Initializer: PHASE and PARTITION Parameters; Error Routines 



Message 4C12D 
•trace * 
partition • 



RDPRT 


X 




»*f»01««»*** 




TYPINRTN 


A 


»-*- 


READ 


"* 




RESPONSE 

X 

.* . 

El ». 












ANY 




*. 


RESPONSE 






»A3 
"*YES 














» Fl «... 










***» X 




PRTVAL 


Fl* "*. 




YES .» 


RESPONSE 






BG 





RESET 

PARTITION 

COOE BUCKET 



Gl *. 

'RESPONSE 



# DD » 

OR DP 
•.FUNCTION .* 



» B4* 
EOJ 



Jl ». 

"response 



RETURN 



*K1****« 
RETURN 



* LOG 

* PRELIMINARY 
*MSG FOR CD IPT 



•INVALID 
PARAMETER » 
SPECIFED' 4C17D 



♦»E3***«*« 
PRTERRCD 



MSG 
ALREADY 
ISSUED 



4C12D 

•TRACE 

PARTITION= 



*»K3*»*»* 
RETURN 



». CARD INPUT .*. 



MSG 
ALREADY 
ISSUED 



4C11D 
•OUTPUT 
.DEVICE= • 



B5 *. 

*" **. N 

CARD INPUT .*. 



«F4«»»»« 
RETURN 



MSG 
ALREADY 
ISSUED 



4C13D 

•IGNORE 

DEVICE=' 



*F5«*»«« 
RETURN 
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Chart AK. PDAID Initializer: Check Parameters, Devices , and Convert to Binary 



PARAMCNT 



»*»A3»»«*» 
PUBCHK 



»»*A4********* 
CNVT2BIN • 



Bl ». 

«. DELIMITER 



POINT AT 
PUB TABLE 
IN COMREG 



* C3 
PUBCOMP 



» El *.. 

CUUCNVT 



CNVTCUU 

•**»»F1»»*»»* 

•CNVT2BIN 

» CONVERT 
« CUU TO 
» BINARY 



» *. YES, 

CONVERSION .«..X 
*. ERROR .« 
». »A2 .» 



CHECK 

PUB 
TABLE 



.* CUU * 

». IN PUB TABLE 
*. »K2 .* 



X 

El 



*»»*E2*«***»» 

• ERROR 

* RETURN 



• 


SET UP » 

FOR « 

CONVERSION • 




X 
CONVERT .*. 

C4 *. 

.•* NUMERIC *». YES 

*. r.HARAf.TFR .« 


CHK0T09 .*. 
C5 * 

.»" HIGHER 
...X*. THAN 




*. .» 


». 9 



END 

OF 

TABLE 



* POINT TO NEXT * 

* ENTRY IN » 

* PUB TABLE « 



X 
C3 * 



*G3***«* 
RETURN 



•»»*J3**»»*» 

* ERROR 

* ROUTINE 



* F4 « 

SAVENUM 

*»#»*F4»*»»»* 

» STORE 

* BINARY 

* NUMBER 



•F5***»» 

ERROR 
RETURN 



X 

*H4«*»»« 

RETURN 
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Chart AL. $$BPDAID - PDAID Transient Routine 



»*A1»***«* 
$$BPDAID 



#»»*B1»*»*»*»*« 



**»B2**»«**» 
INITIALIZE 

FOR A 

PARTICULAR 

TRACE 



#*B3«**»«*» 

TURN ON 

SWITCH 

FOR FETCH 

ROUTINE 



«B5 
OPERATOR RESPONSE 
TO 4C24A IS 'X*. 



TURN 

OFF ALL 

HOOKS 



El *. 

WRAP MODE 
*. .* 

"*N0 



» ANY * 

TABLE TO BE 
*. EMPTIED .* 



PRINT 

REMAINING 

RECORDS 



INDICATES 

TABLES 

EMPTY 



GET 

REQUESTED 

TRACE 



TURN ON 

APPROPRIATE 

HOOKS 



ANY 
PDAID TO 
. BE RUN 



*««F2»****»» 

MOVE TABLE 

SETUP BY 

PDAID TO 

CEAREA 



*#E3*»»»*»* 

SVC 11 

RETURN TO 

PDAID 



E4 «. 

ERROR 



ERRCOND 

»**##F5«**«*** 
« INITIALIZE 
» ERROR 
« MESSAGE 
» 4C24A 



GET 

SUPERVISOR 

STATE 



BJO 
'•YES 



RELOCATE 
ERROR 
CCW 



BRANCH AND 
LINK TO THE 
TAPE TRACE 



••♦»J4*»*«»*» 


#* 


RETURN 




TO CALLING 




ROUTINE 





CANCEL ». YES 
REQUESTED .*-... 
»B5 .* 
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Chart BA. PDLIST - Tape-to- Printer Program (Part 1 of 3) 



PDLIST 



START 
OUTAREA 

»»»*»B1***»*»«»* 

* GET 

» ADDRESS OF 

* OUTPUT 
♦AREA, RELOCATE 

* DTF'S 



FILLUP 

#»»»*C1«*«*»**« 
» CLEAR 

* OUTPUT 

» AREA (INSERT 

• X'FF") 



»C2 
BC-D2,J2,G5 
BD-C4.J5 
BE-^H5,F2 
BF-D4 



X 

*C5«*««»* 

SET 

RECORD 

TYPE TO 

X«02' 



Dl ». 

» TAPE » 

MARK 

ALREADY 

READ 



«*E1«*«*«» 

GET 

INPUT 

RECORD 

TYPE AND 

LENGTH 



»*»E2***«* 
SVC 14 
CANCEL 



NO 


.* 


QTAM 


...» 


"«. 


TRACE 








X 










•YES 


«BC * 






• B2* 


















UNRECSET 




X 




»*E3»*»***« 










» SET 


RECORD 




TYPE 


TO X'04 



»D4**»»*» 

SET 

RECORD 

TYPE TO 

X»01« 



♦ C2* 
COMPCD 



COMPCD 




X 


PUT 




F4* '» 

* IS 






PRINT 






LINE 




* 


EMPTY 



* 


GET ADDRESS 


* 


» STORE PRINTER » 


»***G5***»**»»* 




OF DTF TABLE 




* CONTROL CHAR- » 


* RETURN 




AND LOGIC 




»ACTER. GET ADDR* 


* TO MAIN 




MODULE 




« OF DTF TABLE » 


* ROUTINE 


»i 




»» 


• AND LOGIC MOD » 





TAPE 
MARK 
(EOF) 



»«H3»*»*»* 
BAL • 
TO GET 
ROUTINE 
IN LOGIC 
MODULE 



BAL 

TO 

PUT 

ROUTINE 



#«J2*»** 

MODIFY 

'ENDBR' . 

INDICATE 

TAPEMARK 

READ 



TO 



»»*J3**«»*» 
RETURN 
TO MAIN 
ROUTINE 



BLANK OUT 

PRINT LINE 

AREA 



X 

«K5*»«** 

RETURN 
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Chart BB, PDLIST - Tape- to- Printer Program (Part 2 of 3) 



*»*D1*****»* 

RETURN 

TO CALLING 

ROUTINE 



B2 ». 
.* HAS *. 

♦ ROUTINE 

PREVIOUSLY 

♦.BEEN ENT-. 

*.ERED .* 

*. . * 

*N0 



CLEAR 
PRINT 
AREA 



«»*»D2****«*»* 

SET POINTERS 

TO TAPE 

INPUT AND 

PRINT OUTPUT 

AREAS 



***E2******** 

CLEAR 

COUNT REGS 

RESET FIRST 

TIME 

SWITCH 



RESTORE 

REGS FOR 

GSVC 



PRINTABLE 

GSVC 

. RECORD . 



GSVCTYPE 

•GSVCUNPK 



»GET RECORDS* 
» READY FOR « 
• PRINTING * 



#»»H2***»**« 

FORMAT 

PRINT LINE 

FOR GSVC 

RECORD 

OUTPUT 



J2 ». 

.* FIRST « 
PRINT 
POSITION 
. OPEN 



* UPDATE 
« INPUT 
« POINTERS 




I 


X 
• *. 

H3 *. 

.* HAVE * 
.* ALL RCDS 


* 


. YES 


». ESSED 





STORE2ND X 

##»**K1»*»***»*** 

* STORE « 

* SECOND * 
» HALF OF * 
» PRINT LINE « 



STORE FIRST 

HALF OF 
PRINT LINE 
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Chart BC. PDLIST ^ Tape -to- Printer Program (Part 3 of 3) 



♦BA-J2,D4,C5,E3 



UNRECSET X 

»»B2*****»* 
•SET RECORD « 

• TYPE TO 
* X'80« AND 

• SAVE THE 

• LENGTH • 



COMPCD .•. 

C2 •. 
.• IS ». 

.• THIS • 
*. RECORD 

•. SAME AS .« 
•.LAST .• 


YES 


• •C3»*»*"« 

• SET RECORD • 
..X» TYPE TO » 

• X'40 1 • 


CKREC X 

*»»»C4«« ♦• 

PUT BA 

WRITE SHORT 
♦ RECORD • 


• NO 




• 




X 
FIRSTIN .♦. 

D2 •. 

.»* FIRST *• 
♦. TIME 


NO 




X 

*»#»Q4»»*»»»*»»»* 

PUT BA 
UNRECOGNIZ- 



X 




SETUP 


.*. 






E2 •. 






.* RCD *. 






TYPE = 




YES 


X'Ol" (I/O 






. TRACE) 
















X 


• NO 




• BD « 

• B2» 


X 




IOTREC 








F2 *. 






.♦ RCD *. 






TYPE=X'02« 




YES 


(F/L 




*. . . . 


. TRACE) . 


* 














X 


• NO 




• BE * 

• B2« 


X 




FLTREC 








G2 •• 






.* RCD •. 






TYPE = 




YES 


X'04« QTAM 






. TRACE . 


* 





H2 «. 

.* RCD ♦. 

.«TYPE=X'08' «. 

♦(UNRECOGNIZABLE 

«. RECORD) .» 



• BF • 

• Bl» 

QTAMREC 
YES 



.» BAD ». 

•RECORD MORE* 

THAN 6 
♦. BYTES .« 



UNPACK AND 

TRANSLATE 

DATA TO BE 

PRINTED 



ALL 
READY TO 
. PRINT 



UNPACK AND 

TRANSLATE 

DATA TO BE 

PRINTED 



RECORD 


* 


YES 


MOVED INTO 






. SLOT 












*. . • 




X 


• NO 




♦ BA ♦ 

♦ B4^ 


X 




• * 








♦ BA • 




FLTRSET 



ISSUE MESSAGE 4C26I - 
•UNRECOGNIZABLE RECORD, 
DUMP FOLLOWS.* 
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Chart BD. PDLIST - I/O Trace Records 



♦RECORD SAME* 

AS LAST ONE 
♦.PROCESSED.* 



PRINT 
SHORT 
LINE 



B4 *. 




#»»»*B5****** 


.♦ ENTRY ♦. 




* 


.* TO BE *. 


NO 


* POINT AT 


*. IN .* 


















♦YES 


















* C4 *... 




X 








#»*» X 






GOTHRU .*. 




♦ B4 ♦ 


C4 *. 






.* ENTRY *. 






.» IN SLOT * 


NO 




». TO BE 






*. READ .* 


. 





•••*D2******** 

SET UP BCT 

REG TO PRINT 

3 ENTRIES 

PER LINE 



IOTRFRMT .*. 

E2 *. 

.* THIS *. 

.•RECORD SAME*. 

♦.AS NEXT TO BE. 

♦.PROCESSED. ♦ 



GET PSW 

LABEL FOR 

OUTPUT 



SLOT 
FOR NEXT 
. . ENTRY 



TURN ON 
OVERFLOW 
INDICATOR 



E4 *. 

.♦'overflow *♦ 
♦. indicator 

♦. ON .♦ 

'♦NO 


. YES 


*«E5**«**^ 
* TURN OFF 

* INDICATOR 
..X* PUT * IN 

♦ ENTRY 


K X 
***»»F4* ******* 

* FORMAT PSW 

* AND CSW FOR 

* OUTPUT 


'* 




X 
G4* *♦. 

.♦* THREE "* 

♦. ENTRIES 
♦.FORMATED .* 


. NO 
...... 









WRITE 
* THE * 
RECORD 






RELD 

♦ SET UP BCT 

♦ REG TO PRINT 

♦ 3 ENTRIES 


♦X... 


X 

J4* *♦. 

NO .** END OF '♦. 
ENTRIES 


YES 


ANOTHER 
STAGN 

* *SET UP BCT* 

♦ REG TO PRINT 
,...X^ 13 ENTRIES 


* PER LINE 

* 




♦ PER LINE 


X 
♦ C4 ♦ 








X 

♦ BA ♦ 

♦ Dl» 
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Chart BE. PDLIST - F/L Trace Records 



B2 •• 
.* THIS *. 

•RECORD SAME». 
AS LAST ONE . 

•.PROCESSED.* 



PRINT 
SHORT 
LINE 









•••**D2*** »»#»##* 










• SET UP BCT • 










• REG TO PRINT • 










» 2 ENTRIES • 










» PER LINE » 










* • ••• •»• • 










»**« . 










♦ • .X 










* E2 «... 
















**«* X 








FINDFIR .♦. 




»*»EL»««*«*«* 




E2 ». 










* 


POINT AT 
NEXT 
SLOT 


* 


NO ,» ENTRY *. 


• 


* ** 


». READ .•* 




**..*......,♦ 




**»YES 




X 




♦ F2 »..! 
















• ••* x 




• E2 * 




ENTRYQ .*. 








F2 ». 








.»*ENTRY IN **. NO 
». SLOT TO BE ...... 

». READ .• 

**«. .•"* X 

»YES ••••• 

• BA • 

• Dl* 
X • * 








• * * SE 


rup 



BUILD AND 

FORMAT F/L 

ENTRY 



.♦ TWO •. 

ENTRIES 
♦.FORMATED .« 



PUT BA 

PRINT 

A • 
LINE 



SET UP BCT 

REG TO 

PRINT ANOTHER 

LINE 



NEWLINE 

»»*»»H5**»»*»* 

• SET UP BCT 
» REG TO 

• PRINT 

• ANOTHER 

• LINE 



• Dl* 
SETUP 
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Chart BF« PDLIST - QTAM Trace Records 



»«#01*»»*«*»* 

INITIALIZE 

COUNTER FOR 

2 ENTRIES 

PER LINE 



.* FIRST *. 
« POSITION *. 

AND OVERFLO . 
«. IND. ON .* 



•*F1***«*»« 

TURN OFF 
FLAG ANO 
TURN ON 
OVERFLOW 
INDICATOR 



.« ENTRY *. 

IN THIS 

♦.POSITION .* 



»#*H1»****** 
INCREMENT 

POINTER 

BY +L7 TO 

NEXT ENTRY 



HALF1 X 


.». 


»»*»»B3»*»»**»»»» 


B4 *. 


•POINT TO PRINT » 


.* »• 


* LINE AND • 


NO .« END *. 


* INITIALIZE » 


...». OF BLOCK .« 


* COUNTER TO 2 » 


». .* 












• YES 










» C3 *... 








*.#» X 




ENTRYQ1 .«. 


NEWLINE1 X 


C3 «. 


#»#»«C4«»»««»*»»« 






.» INPUT *. YES 


•POINT TO PRINT • 


«. AREA FULL .*.... 


• LINE AND SET » 




• COUNTER TO 2 • 


*. . * . 


» • 


* *NO 




j j 


x! 


X 


X 






D3 «. 


D4 •. 




.* IS *. 


YES .» «V« TYPE • . 


.« OUTPUT1 ». YES 


...*. RECORD .* 


». AN SVC ...... 




•. RECORD .» 








». .• X 


• NO 


•NO •*«• 




• BB 


• 


• B2 



BUILD AND 

FORMAT SVC 

RECORD 



BUILD AND 

FORMAT I/O 

RECORD 



»«»«H3»«»»««»* 
INCREMENT TO 
NEXT ENTRY 

AND NEXT 
POSITION IN 
OUTPUT AREA 



BUILD AND 

FORMAT SIO 

RECORD 
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Chart CA. I/O Trace: Core-Wrap Mode (PDAIDITW) 



FROM 
SUPERVISOR 
SIO ROUTINE 



FROM 
INTERRUPT 
HANDLER 



SIOENTER 
♦INITZ 



INTENTER 
*»#»*B2» 
•INITZ 



FROMSIO 

#*»*«C1*»«»*»* 

* STORE DATA 

* FROM CSW 

* STORED 

* CONDITION 

* *C3 



.» TRACE *. 

• OR IGNORE 
I/O EVENTS 
». *D3 



CKDEVCE1 .*. 

El • . 

.* FIRST ♦ . 
YES .* DEVICE * 
...*. INTERRUPTED 



CKDEVCE2 .*. 

Fl *. 

.♦SECOND *. 
YES .♦ DEVICE * 
X..*. INTERRUPTED 



«B3 
THE I/O INTERRUPT 
DATA CONSISTS OF— 
-I/O OLD PSW, 
-CSW, 
-CAW. 



♦C3 
THE 'CSW STORED' 
DATA CONSISTS OF — 
-CHANNEL AND UNIT ADDRESS, 
-CCB ADDRESS, 
-CSW, 
-CAW. 



*D3 
THE INITIALIZER ROUTINE 
(INITZ) DETERMINES WHICH 
STRING OF CODING WILL BE 
USED, DEPENDING IF 
•TCR' OR 'IGN' 
DEVICES— 

-•CKDEVICEl' IF •IGN« IS 
SPECIFIED, 

^•NEWCHK' IF 'TRC IS 
SPECIFIED. 



.* ALTERNATE 
AREA 
♦.SPECIFIED. 



♦ GET THE 

♦ ALTERNATE 
•AREA ADDRESSES 

♦ FROM STANDARD 

♦ PREFACE TABLE 



#»»C5**»« W »*» 

COMPUTE AND 

SAVE LENGTH 

OF THE CE 

SAVEAREA 



CKDEVCE3 .*. 




.♦. 


Gl ». 




G2 ♦. 


.» THIRD •. 




.♦ THIRD ♦. 


NO .♦ DEVICE ♦. 


YES 


♦ DEVICE 


X..^. INTERRUPTED .♦ 


X..^ 


INTERRUPTED 



E2 *. 

.« FIRST •. 

• DEVICE • 

INTERRUPTED 



F2 ♦. 

.♦SECOND ♦. 

♦ DEVICE ♦ 

INTERRUPTED 



• MODIFY 

•SIOENTER' T 
BRANCH TO 
•FROMSIO' 



CLEAR LAST 

286 BYTES OF 

CE SAVEAREA 



F4 •. 

.* «OPT« ♦. 

.♦ BYTE IN ♦ 

.STD. PREFACE 

♦.TABLE IND.^ 

*.«TRC».* 



♦YES 



»#G4»*»«««» 

•SUBSTITUTE 

'NEWCHK' 

CODING FOR 

•CKDEVCE1' 

♦ ^03 



CLEAR 
ADDITIONAL 

BYTES IN 
CE SAVEAREA 



GET THE 

ADDRESS OF 

THE BEGINNING 

OF THE 

SAVEAREA 



♦ SAVE THE 

♦ ADDRESS OF 

♦ THE 'NEXT 
♦AVAILABLE SLOT' 
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Chart CB. I/O Trace: Print Mode (PDAIDITP) (Part 1 of 2) 



»#*A1******** 

FROM 

SUPERVISOR 

SIO ROUTINE 



#*A2»*«»«*» 

FROM 

INTERRUPT 

HANDLER 



IORTN 

*****B1****»»»* 
•SAVE CCB ADDR. 

* CHANNEL AND 

* UNIT ADDRESS. 
» CSW, AND 

* CAW 



SAVE I/O OLD 

PSW, CSW, 

AND CAW 



Dl *. 

••OUTPUT *. 

• DEVICE « 

INTERRUPTED 



SAVE THE 
DEVICE 
STATUS 



D2 •. 
.« 'OPT' *. 

» BYTE IN * 

STD PREFACE 

•.TABLE IND.» 

».'IGN'.« 

'•YES 



«»E2*«»«»»* 

•SUBSTITUTE 

•CKDEVCE1' 

CODING FOR 

'SAVUM' 



*E3 



«*F1****** 

GET THE 

ADDRESS 

OF PHASE 

NAME 



DUMP • 
IN 
.PROGRESS .* 



IGNDEV 

•CLEAR I/O AREA 

• AND SAVEAREA, 

• GET DUMMY 

• 'DEVICE END' 
» STATUS BIT 



**G2**»**«» 

♦ MODIFY 

» 'ENTRY' TO 

INDICATE 
• MODULE IS 

♦ RELOCATED 



MODULE ». 
ALREADY 
.RELOCATED.* 



INITZ 

»«***J1**«»***« 
» GET ADDR OF 
« I/O AREA AND 

• UPDATE CCW 

• DATA ADDR 



«E3 
THE INITIALIZATION 
CODING DETERMINES 
WHICH STRING OF CODING 
WILL BE USED, DEPENDING 
ON WHETHER THE CE 
SPECIFIES 'TRC OR 
•IGN' DEVICES — 
- CKDEVCE1 IF IGN 
IS SPECIFIED, 
-•SAVUM' IF 'TRC 
IS SPECIFIED. 



.* FIRST ». 

YES .♦ DEVICE ♦ 
...». INTERRUPTED 



.•SECOND ». 

• DEVICE • 

INTERRUPTED 



D4 ». 
.» THIRD •. 

YES .♦ DEVICE » 
X..». INTERRUPTED 



B5 ». 

.« FIRST ». 

* DEVICE » 

INTERRUPTED 



.•SECOND «. 

* DEVICE » 

INTERRUPTED 



D5 ». 
.* THIRD «. 

.YES .» DEVICE » 
.X..». INTERRUPTED 



SAVEIT 

*****G4******** 

• MOVE ANOTHER 

• ENTRY INTO 

• THE 

• SAVEAREA 



I/O 

AREA 
FULL 



X 

**F5**»«*«* 

• SET UP'*' • 

TO INDICATE 

LOST ENTRY 

DUE TO 

» OVERFLOW » 



UPDATE 

OLDEST ENTRY 

POINTER 



SAVE DEVICE 
INTERRUPT 
ADDRESS 



• THREE • 
ENTRIES 
IN I/O 

AREA 



*CC-C5,E5,K4 



RESTORE THE 

CSW, CAW 

AND RETURN 

ADDRESS 



«***K1******** 

GET ADDRESS 

OF ERROR MSG 

AND UPDATE 

ERRCCW 

*K3 



.* TRACE •. IGN 
.OR IGNORE I/0.».... 
•. EVENTS .• 



• K3 
ERROR MESSAGE 
4C24A INDICATES 
DEVICE NOT 
OPERABLE. 



**K5****** 

RETURN 

TO ENTRY 

POINT 
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Chart CC, I/O Trace: Print Mode (PDAIDITP) (Part 2 of 2) 



•GET THE ADDRESS* 
•OF THE SAVEAREA* 
♦AND THE OLDEST • 
• ENTRY POINTER • 



GET THE 

ADDRESS OF 

THE I/O AREA 



NEXTONE 

♦TRANSLATE INFO 
♦INTO PRINTABLE 

* FORMAT, GET 

♦ NEXT ENTRY 



UPDATE 

OLDEST ENTRY 

POINTER 



GET 

CHANNEL 

AND UNIT 

ADDRESS 



DEVICE 
PERABLE 


*• 


NO 








*"*YES 






X 

C5**"*. 

DEVICE 
BUSY 


». 










'•NO 






!x... 







* GET AND STORE 

* CHANNEL AND 

* UNIT ADDRESS 

* FOR SYSLOG 



♦DEVICE END 

ON OUTPUT 

♦. DEVICE . 



.♦OUTPUT ♦. 

* DEVICE ♦ 

INTERRUPTED 



.* I/O ♦. 


*JO .• 


DEVICE 


♦ . YES 


♦. AREA FULL .♦ 


. . • . *. 


BUSY 






















X 




X 


♦ YES 




•NO 










♦ CB • 




♦ DL ♦ 


. 


• J5^ 








* • 














X 


CLEAR 


X 








»*•+*£ 2* ********* 




F3 ♦. 












* STORE ♦ 


YES .♦ 


ERROR 




* OLDEST ENTRY ♦ 




CONDITION 




♦ POINTER ♦ 


. • 


POSSIBLE 


• 


* * 


X 


*"*. .♦** 





•Hl» 



GET ADDRESS 

OF THE 

CHANNEL 

QUEUE 
POINTER 



♦ I/O ♦. 

FROM •. YES 
ERROR ...... 

ROUTINE .♦ 



ENTRY POINT 



J4 ♦. 

X 

REPLY 

♦. .♦ 

'♦YES 



**K4******* 
MODIFY BEGINS 

♦ (CB-B2) TO 

BRANCH TO 

♦ RETURN TO 
♦SUPERVISOR ♦ 



. CLEAR 
X 

• CB*£ 
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Chart CD. I/O Trace: Tape Mode (PDAIDITT) (Part 1 of 2) 



*«*A1*****»*» 

FROM 

SUPERVISOR 

SIO ROUTINE 



FROM 
INTERRUPT 
HANOLER 



SIORTN 

#*»»*B1**»****»*» 
•SAVE CSW, CAW, * 
•DEVICE ADDRESS,* 

• AND CCB • 

• ADDRESS « 



SAVE I/O OLD 

PSW, CSW, AND 

CAW 



.•OUTPUT *. 

« DEVICE • 

INTERRUPTED 



MODIFY CCW 

TO SET 

MODE 




GET THE 

ADDRESS OF 

THE PHASE 

NAME 



DUMP 

IN 

.PROGRESS 



MODULE 

ALREADY 

.RELOCATED. 



IOBCKT 

* GET ADDR OF 

* I/O AREA AND 

* UPDATE CCW 

* DATA ADDR 



E2 ». 

.* 'OPT' ♦. 

• BYTE IN » 

STD PREFACE 

•.TABLE IND.« 

• .UGN'.« 

"'•YES 



#*F2»»»*»«« 

•SUBSTITUTE 

•CKDEVCE1' 

CODING FOR 

•SAVUM* 



• E3 
THE INITIALIZATION 
CODING DETERMINES 
WHICH STRING OF 
CODING WILL BE USED, 
DEPENDING ON 'TCR' 
OR 'IGN' DEVICES 
SPECIFICATION-t 
-CKDEVCE1 IF ' IGN' IS 
SPECIFIED, 

-•SAVUM' IF 'TRC IS 
SPECIFIED. 



»E3 



IGNDEV 
BOPLY X 

**G2*«****« 

» MODIFY • 

*«ENTR« TO IND* 

•MODUL RELOCATD, 

♦ CLEAR I/O » 

• AREA • 



CKDEVCE1 .♦. 

B4 *. 
.» FIRST «. 
YES .* DEVICE ». 
...*. INTERRUPTED .» 



.•SECOND ♦. 
YES .» DEVICE * 
X..». INTERRUPTED 



CKDEVCE3 .•. 

D4 ♦. 
.« THIRD *. 

DEVICE • 
INTERRUPTED 



YES 



B5 «. 

.» FIRST «. 

• DEVICE * 

INTERRUPTED 



C5 •. 

.•SECOND ». 

• DEVICE • 

INTERRUPTED 



.• THIRD *. 

» DEVICE • 

INTERRUPTED 



**F4«*«««*« 
•SET UP ■•• » 

• TO INDICATE- 
LOST ENTRY 

• DUE TO 

• OVERFLOW • 



SAVEIT 

• MOVE ANOTHER 
» ENTRY INTO 

• THE 

• SAVEAREA 



»CE-H2,C4,J4,K5 



WANTPRT .«. 


CLEAR X 


H4 *. 


#*»»»H5»»*»»* 


.» 13 ». 


• SAVE I/O 


.* ENTRIES •. NO 


• EVENTS TO 


». IN I/O ...... 


....X* BE PUT OUT 


*. AREA .« 


• ON NEXT 


«. .* 


» INTERRUPT 



GET DEVICE 
INTERRUPT 
• ADDRESS 



• YES 

X 

• CE • 

• A3» 

OUTPUT 



»*»* J5»»«*«#» 

RESTORE CSW, 

CAW, AND 

RETURN 

ADDRESS 



««**«K1*««»»««»* 
•GET ADDRESS OF 
« ERROR MESSAGE 

• AND UPDATE 
« ERROR CCW 

• «K3 



ERROR MESSAGE 4C24A 
INDICATES DEVICE 
NOT OPERABLE. 



.« TRACE • 

OR IGNORE 

I/O EVENTS 

• E3 

"»TRC 


*. IGN 

X 




» B4 



ENTRY POINT 
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Chart CE. I/O Trace: Tape Mode (PDAIDITT) (Part 2 of 2) 



A2 ♦ . 

♦DEVICE 
END ON 
OUTPUT » 
DEVICE 



B2 ♦ . 

.♦OUTPUT ♦. 
♦ DEVICE ♦. 
INTERRUPTED .♦ 



GET PUB BUSY 

BYTE 

ADDRESS 



GET CHANNEL 

AND UNIT 

ADDRESS FOR 

SYSLOG 



GET CHANNEL 

AND UNIT 

ADDRESS, AND 

CSW ADDRESS 



GET ERROR 

CCW 

ADDRESS 



•+*G2* ********* 

WRITE • 
I/O EVENTS 
ON TAPE ♦ 



♦ I/O ♦ 

FROM 

ERROR 

ROUTINE 



.♦ ERROR ♦. YES 
♦. CONDITION ...... 

♦.POSSIBLE .♦ 



*• J5#»*»#»# 
MODIFY BEGINS 

♦ (CB-B2) TO 

RETURN TO 

♦ SUPVR 
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Chart DA. F/L Trace: Core-Wrap Mode (PDAIDFTW) 



ENTER FROM 

SUPERVISOR 

CALL ROUTINE 



ENTER FROM 

FETCH/LOAD 

ROUTINE 



ALTERNATE 
SAVE 
. AREA 



SAVE ADDR. 

OF ALTERNATE 

AREA 



X 

*»»»B5«*»*»**«* 

COMPUTE 

AND SAVE 

ADDR. OF SAVE 

AREA 



SAVE VALUE 

AND ADDRESS 

OF SVC 



***C2«***»*» 

SAVE 

CALLING 

PARTITION 

IDENTIFIER 

(PIK) 



ENTCHNG X 

*»C4******* 
« MODIFY » 
* INITIAL 
* ENTRY 
•INSTRUCTIONS 



RETURN 

TO 

SUPERVISOR 



#*D4*«»**«* 
♦ INSERT * 

• 'SAVEPSW * 
(MAIN SVC) 

• CODING IN « 
PREFACE TABLE 



SETTEST 

*»E4»»***«» 
» SET * 

* PARTITION * 
* PARAMETERS 

• IN TEST1, » 
TEST2, TEST3* 



»»»G2******** 

BUILD F/L 

EVENT ENTRY 

INCREMENT 

POINTER 



.* STILL *. NO 

*. IN SAVE .* 

». AREA .* 

***YES 


...X* 


GET ADDR. 

OF START 

OF SAVE 

AREA 


• 


INCREMENT X 

•##*»J2*»»»**»*#« 
« SET » 
« POINTER * 

* FOR NEXT » 

* ENTRY » 











SVTST .*. 

F4 ». 

.♦SUPERVISOR** 
». PARTITION 


. YES 


SVSET 

*«F5*««***« 
* MODIFY 
» «TM» 
...X* INSTRUCTION 


*. GIVEN .* 
*«NO 




* TO TEST FOR 
♦SUPERVISOR 


BUMPPTR X 

* POINT 
» AT NEXT 
» TEST 


* 





ALL 

TESTS 

CHECKED 



CLEAR 

SAVE 

AREA 



SUPERVISOR 



ENTRY ♦. NO 
SWITCH = .*... 
. X'OO' .* 
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Chart DB. F/L Trace: Print Mode (PDAIDFTP) (Part 1 of 2) 



»*#A1»*****»*« 
ENTER FROM 
SUPERVISOR 
SIO ROUTINE 



««#A2»»««*»» 

ENTER FROM 

INTERRUPT 

HANDLER 



ENTER FROM 

FIRST SVC 

ROUTINE HOOK 



»*»»A4* ♦*»»»*» 

ENTER FROM 

SECOND SVC 

ROUTINE HOOK 



*A5 
THE BRANCH ADDRESS IS 
DETERMINED AT THE 
INITIAL ENTRY, THIS 
DECISION IS SHOWN ONLY 
AS AN AID IN FOLLOWING 
THE LOGIC - IT DOES NOT 
APPEAR IN THE LISTING. 



• MODIFY • 
* RETURN ADDR 

TO RETURN TO 
« SIO ROUTINE 



#»#«*B3«»*«»«*«*« 
» SAVE F/L » 
» INDICATOR AND « 
•CALLING ADDR IN* 
»LAST 4 BYTES OF* 
* PREFACE TABLE * 



RESTSET 

»#C1***«»** 

* GET 

* PARTITION 
« INDICATORS 

* TO BE 

* TESTED 



*»»»01****»**» 

BUILD CCW 

FOR ERROR 

MESSAGE, GET 

DUMMY DEVICE 

STATUS 



SVCK X 

#»»*#E1»*»*»»»»# 

* SET UP 

* TESTS AND 

* BRANCH ON 
•COUNT REGISTER 



« RETURN 

• TO 

» SUPERVISOR 



.* ORIGINAL *. YES 
•ENTRY FROM SIO.*.... 
». ROUTINE .* 
•. *A5 .» 



•SUPERVISOR 

PARTITION 

*. (X»00>) . 



**G1**»»**» 

• SET 

SUPERVISOR 

INDICATOR 

(X'AO« ) 



SIOENTSV 


*. 




b2 


*. 








YES .» 


DEVICE 




INVOLVED 




IN 


SIO 








X 










♦ NO 








F3 * 




. 












.X... 




X 


CKCQP 








Hi? 












DEVICE 


*. 


AVAILABLE 



* F3 *.. 

MOVSTAT* 



»F3»»*«*»*» 

GET 
DEVICE 
STATUS 



YES .* STATUS = 
...... DEVICE 

«. END 



*«F4**»*«» 

SET 

OVERFLOW 

FLAG 

(X'5C) 



MOVE ENTRY 

FIELD UP AND 

MOVE IN NEW 

ENTRY 



NO .* ALL 
...». PARTITIONS 
». CHECKED . 



I/O 
AREA 
FULL 



GET CHANNEL 

AND UNIT, GET 

CCW ADDR 



STORE 

CCW ADDRESS 

IN CAW 



.X. 
X 

• K5 



X 
F5 



FORMAT 
ENTRIES TO 
BE PUT OUT 



CLEAR 

SAVE 

AREA 



•*»K5*»*»»»» 

RETURN 

TO 

SUPERVISOR 
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Chart DC. F/L Trace: Print Mode (PDAIDFTP) (Part 2 of 2) 



* 


PRINT 
OUTPUT 




* 








X 












C2 *. 










YES .* 


DEVICE 




. . .*. 


BUSY 







• 


ONLY 


*. 


YES 






1ST CCW 










.EXECUTED 
*. .* 

**N0 

X 
G2* *». 




X 

«DB 
« J2 

* • 

DOPT 


ERROJ 




•OUTPUT « 






-ISG . 




OR 






<..*. 




ERROR 








*. 


MSG 


* 





•**J2******* 

RETURN TO 

SUPERVISOR 



PRINT ERROR 

MESSAGE 

4C24A 



H4 *. 

X 
REPLY. 

*. .* 

♦ YES 



MODIFY TEST1* 
« (DB-B4) TO 
RETURN TO 
« SUPVR 
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Chart DD. F/L Trace: Tape Mode (PDAIDFTT) (Part 1 of 2) 



»*»A1*»»«»*»« 
ENTER FROM 
SUPERVISOR 
SIO ROUTINE 



• *»A2* 

ENTER FROM 
INTERRUPT 
HANDLER 



»«B1* 

* MODIFY * 
• RETURN ADDR 

TO RETURN TO 
» SIO ROUTINE 



RESTSET 

*»C1* 
» GET » 
* PARTITION 
* INDICATORS 
•TO BE TESTED 



**D2»» 

* SET MODE * 
TO INDICATE 

7-TRACK 
TAPE, 800 

* BPI * 



»»»»A3»*»»«*»» 

ENTER FROM 

FIRST SVC 

ROUTINE HOOK 



SAVPSW 

•***SAVE p******* 

* INDICATOR AND • 

• CALLING ADDR » 

♦ IN LAST 4 BYTES* 
•OF PREFACE TBL * 



*»»C3**»**»* 

RETURN TO 

SUPERVISOR 



*D3 
THE BRANCH ADDRESS IS 
DETERMINED AT THE INITIAL 
ENTRY. THIS DECISION IS 
SHOWN ONLY AS AN AID IN 
FOLLOWING THE LOGIC - IT 
DOES NOT APPEAR IN THE 
LISTING. 



*»»»A4»»*»»**« 

ENTER FROM 

SECOND SVC 

ROUTINE HOOK 



.» I/O *. 


NO 


*. AREA 




*. FULL .* 


. 








X 


♦YES 










• H 


*DE *... 




* F2* 




♦ ♦♦« 





GET CHANNEL 

AND UNIT, GET 

CCW ADDR 



STORE CCW 

ADDRESS IN 

CAW 



«*«»»E1* 
» SET UP 

* TESTS AND 

♦ BRANCH ON 
•COUNT REGISTER 



»»G1*»«*»»« 

• SET 
SUPERVISOR 
INDICATOR 
(X'40'J 



.* ORIGINAL ». 

♦ENTRY FROM SIO. 

*. ROUTINE .» 

♦. «D3 .* 



.» DEVICE 

. INVOLVED 

». IN SIO 



♦♦♦•G4* #♦♦»»»♦ 

MOVE ENTRY 

FIELD UP AND 

MOVE IN NEW 

ENTRY 



» ALL 

PARTITIONS 
». CHECKED . 



GET NEW 

ENTRY 
POINTS 



RETURN TO 
SUPERVISOR 



YES .» STATUS = 
...... DEVICE 

». END 
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Chart DE. F/L Trace: Tape Mode (PDAIDFTT) (Part 2 of 2> 



• ONLY 

1ST CCW 
•.EXECUTED 



ERROR . -OUTPUT 
MSG .» OR 
X..«. ERROR 
♦. MSG 



SUPERVISOR 



PRINT ERROR 

MESSAGE 

4C24A 



* MODIFY « 
♦TEST1 (DE-B4)« 
» TO RETURN 
* TO SUPVR « 
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Chart EA. GSVC Trace: Core-Wrap Mode (PDAIDGTW) (Part 1 of 2) 



**** 

* A4 ♦ 

* * 
**** 



****A1 ********* 

* * 

* SIOENT * 
*************** 



Bl *. 

.* WAS *. 

.♦ IT A 

SIO 

♦.INTERRUPT. 



.* 



CI *, 

WAS 

IT AN 

I/O 

INTERRUPT, 



*. 



SVCENTRY .♦. 






Dl *. 






.* FIRST * 




YES . 


* TIME 


*. 


. . .*. 


THROUGH THIS .* 




*. ROUTINE 


.* 




*. *H3 .* 




X 


*. .* 




***** 


*N0 




*EB * 




**** 


* Bl* 




* 


* 


* * 




..* 


: B * 


* 




* 


.)■>♦ 


SVCINIT 






c*** 


SVCPT 


X 




*****£! ********** 


* 


SAVE 




* 


THE 


* 


* 


PIK OR PID 


* 


* 


VA 


.UE 


* 



****D2********* 

* RETURN * 

* TO * 

* SUPERVISOR * 
********* 



WAS 

IGN .♦TRACE OR ♦ . TRC 
IGNORE, 



IGNORE, .*. 
♦.SPECIFIED.* 



COMPARE 
BRNCH1 .*. 

B3 *. 

.*ARE WE *. 

.* ALL DONE *. 

♦.SEARCHING THE. 

*. SVC .* 

♦.TABLE.* 

*. .* 

*NO 



C3 *. 

.* IS ♦. 

♦ THIS SVC ♦ 

TO BE SAVED 

*.OR IGNORD.* 

*. .* 

♦ . .♦ 



*****D3********** 

* INCREMENT ♦ 

* POINTER TO ♦ 

* NEXT SVC * 

* TO BE * 

* CHECKED * 
***************** 



B5 ♦. 
.♦ARE WE *. 
= ALL DONE 

SEARCHING 

. THE SVC . 

*. TABLE.* 

*. .* 

♦ NO 



COMP2 X 
BRNCH2 .♦. 
C5 
.♦ IS 
YES .* THIS SVC 



**** 

* * 

* F5 * 



***D4***«****** 



***************** 



***************** 



Fl *. 
.♦IS 1ST * 
.* PARTITION 
.SPECIFIED TO 
♦. BE IG- 
♦.NORED 
*. . ♦ 
♦ NO 



HAVE ALL 
SIX SVC'S 

. BEEN 
♦.CHKD .* 



.* 



Gl *. 

.*IS 2ND *. 

.* PARTITION * 

.SPECIFIED TO 

*. BE IG- .* 

*.NORED.* 

*. .* 

*NO 



.*. 

HI ♦. 

.*IS 3RD *. 

.* PARTITION * 

.SPECIFIED TO 

*. BE IG- .* 

*.NORED.* 

♦ . .* 

*NO 



ALLTRACE .*. 

Jl *. 
.* WAS A *. 
.* SVC 
*. SPECIFIED 
♦ K3 



♦H3 
THIS INSTRUCTION IS 
MODIFIED BY THE INST. 
LOCATED AT EB-B1. 



♦ H4 
SHADED AREA IS MODIFIED 
BY THE INSTRUCTIONS 
LOCATED AT EB-F2. 



***#J2********* 

* RETURN * 

* TO * 

* SUPERVISOR * 
*************** 



*****K1 ********** 


* 


SET UP FOR 


* 




ONE OF 


* 


* 


THE 


* 


* 


FOLLOWING 


* 


* 


LOOPS 




***************** 




X 






**** 






* * 






* A4 * 






* * 






**** 





*J3 
SHADED AREA IS MODIFIED 
BY THE INSTRUCTIONS 
LOCATED AT EB-C1 AND 
EB-D4. 

THE INITIALIZER CONVERTS 
THE PARTITION NOT 
SPECIFIED TO BE TRACED 
TO IGNORE. TESTS AT 
Fit El AND HI TEST THE 
IGNORE OPTION, WHETHER 
SPECIFIED BY THE CE OR 
CONVERTED BY THE 
INITIALIZER, TO SEE 
IF ONE OF THEM IS THE 
PARTITION CAUSING THE 
INTERRUPT. 



*K3 
THIS INSTRUCTION IS 
MODIFIED BY THE INST. 
LOCATED AT EB-E1. 



*****D5 ********** 

♦ INCREMENT ♦ 

♦ POINTER ♦ 

♦ TO NEXT ♦ 

♦ SVC TO BE * 

♦ CHECKED * 
***************** 



E5 ♦. 
.HAVE ALL*. 
SIX SVC'S 
BEEN 
. CHECKED . 
*. .* 

*. .* 



**** 

X 
*****P5 ********** 

* GET ADDRESS * 

* OF THE NEXT ♦ 

* AVAILABLE ♦ 

* ENTRY ♦ 

* * 
***************** 



*****Q5********** 

♦ SAVE SYC OLD ♦ 

♦ PSW AND REGS ♦ 

♦ 0+1, * 

♦ RESTORE ♦ 

♦ USER REGS ♦ 
************** 



SAVE 
AREA 
FULL 



*****J4********** 

♦ POINT TO ♦ 

♦ THE START ♦ 

♦ ADDRESS OF ♦ 

♦ THE SAVE AREA * 

♦ * 
***************** 



MOVEUP 

***** j 5********** 

* INCREMENT * 

* BY +16 TO * 

* NEXT AVAIL * 

* ENTRY * 

* * 
***************** 
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Chart EB. GSVC Trace: Core-Wrap Mode (PDAIDGTW) (Part 2 of 2) 



SVCINIT X 

*«B1»«*»**# 
* NOP INST. * 
♦AT 'SVCENTRY 1 * 
•TO PREVENT FUR- 
THER ENTRY TO* 
» THIS RTN. « 



RESTSET 

»*C1***»«** 

♦MODIFY PAR-* 

♦TITION TESTS » 

♦WITH CE RESPON- 

* SES IN PRE- * 

♦FACE TABLE ♦ 



THIS ROUTINE IS 
CHECKING THE 
PARTITIONS SPECIFIED 
BY THE CE. 



♦C2 
THE FIRST TIME THROUGH 
THE LOOP, THE POINTER 
IS POINTING AT THE 
QUESTION AT EA-F1. 



WERE 

ANY SVC'S 

.SPECIFIED. 



•*E1«»****« 

♦ MODIFY ♦ 
♦ «ALLTRACE" ♦ 

TO AN 
♦UNCONDITIONAL* 

♦ BRANCH ♦ 



B3 «. 

•*IS THIS*. 
♦ PARTITION 

THE SUPER- 

♦. VISOR . 

♦. »B2 .♦ 



»**C3******* 

INCREMENT 

POINTER 

TO NEXT 

PARTITION 

CHOICE *C2 



D3 ♦. 

.HAVE ALL*. 

.♦THREE PART-*. 

.ITION CHOICES. 

♦.BEEN CHE-.* 

♦.CKED .♦ 



**»*C4******** 

ALTER 

CODE TO X»40' 

TO INDICATE 

SUPERVISOR 

PARTITION 



•*04******« 

* ALTER ♦ 
♦ PARTITION 

TEST TO TEST 
♦FOR X'40« OR 

♦ HIGHER ♦ 



♦YES 



SWTCHTST .♦. 

E2 ♦. 
.♦ TRACE ♦. 

IGNORE .♦ OR 

.♦. IGNORE 
♦.SPECIFIED. 



»E3********» 
RESTORE 

REGS 
2 AND 3 



* MODIFY 
•BRNCH1' 
♦AND 'BRNCH2' 



SAVE 

REGS 

5 AND 7 



SAVE 
REGS 
2 AND 



NO .♦ ALTERNATE 
...♦. AREA 

•.SPECIFIED. 



»»**»H1*»***»*^^^ 


»###»H2*»**»***»* 


* SETUP * 


♦ LOAD SAVE ♦ 


♦ FOR ♦ 


♦ AREA START ♦ 


♦ FOLLOWING ♦ 


♦ ADDR, AND ♦ 


* LOOP * 


♦ CE AREA END ♦ 




• ADDRESS * 



****«H4* ***♦♦♦♦♦ 
♦LOAD BEGINNING 

♦ AND ENDING 

♦ ADDRESS OF 

♦ ALTERNATE 

♦ AREA 



*»#»»H5********** 

♦ DECREMENT THE * 

♦ END ADDRESS ♦ 
•BY 16 BYTES AND* 

♦ STORE THE NEW ♦ 

♦ END ADDRESS * 



***J3******** 

DETERMINE 

EVENT 

CAPACITY OF 

THE SAVE 

AREA *J4 



SUBTRACT THE LOWER 
ADDRESS FROM THE 
UPPER ADDRESS AND 
DIVIDE THE RESULT 
BY 16. 



WRAPUP X 

*»#»*J5«*»*»*»»» 

* LOAD SAVE 
♦AREA BEGINNING 
♦ADDRESS. CLEAR 
♦FIRST BLOCK IN 

♦ SAVE AREA 
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Chart EC. GSVC Trace: Print Mode (PDAIDGTP) (Part 1 of 3) 



** A 1 «♦»»*» * 

SIO ENTRY 

POINT 



I/O 

INTERRUPT 
ENTRY POINT 



A4 ». 

X 
REPLY 



83 *. 
.* IS • . 

INTERRUPT 
FROM OUR 
. OUTPUT . 
♦DEVICE.* 

*»N0 



»#BA»*»*»*« 
MODIFY TEST1* 

* (ED-C2) AND * 
CKCQP <EC-C1) 

* TO RETURN » 
« TO SUPVR * 



p .». 

CI *. 

.*" IS **. NO 
DEVICE .«... 

». BUSY .* 

*. .* 

*YES 


MOVSTAT 


X 
«C2*«****»**» 

SAVE » 
DEVICE « 
STATUS » 










. . .x! 


X 

RETURN • 

TO » 

SUPERVISOR * 


TRYPT 


X 

D2* **. 

DEVICE *». 
END .* 



D5 ». 

ERROR 



IS 
I/O 

AREA 
.FULL 



SUPERVISOR 



• OUTPUT 

DEVICE 

•.OPERABLE 



SUPERVISOR 



SAVE 
CSW 
AND 
CAW 



**»»G2»***»***« 

SAVE 

CHANNEL AND 

UNIT 

ADDRESS OF 

OUTPUT DEVICE 



*#G4***»*» 
SPECIFY 
SYSLOG 



SUPERVISOR 



.* WAS ». 
YES .»ONLY SPACE 
...*. CCW 

•.EXECUTED . 



G5 *. 

.* WAS • 

OUTPUT 

AN ERROR 

MSG 



»H2»«»*«» 
PUT 
CCW 
ADDRESS 
IN 
CAW 



PUT ERROR 

MESSAGE CCW 

ADDRESS 

IN CAW 

FOR 4C24A 



CLEAR 

I/O 
AREA 



#«*«J2»«»***«» 

SIO 

TRY TO 

PRINT OUT 

INFORMATION 



♦»» J5»«**#» 

RESTORE 

CSW 

AND 

CAW 



SUPERVISOR 
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Chart ED, GSVC Trace: Print Mode (PDAIDGTP) (Part 2 of 3) 







****A3********* 
* 

* SVCENTRY 
* 

*************** 








***** 




*EE * 

* K4* 

* * 

* 

*x 




*B1 
MODIFIED BY 
INSTRUCTIONS 
AT EE-D5. 


SVCPT X 

* SAVE * 

* PIK * 

* OR * 

* PID * 

* VALUE * 
***************** 


X 

.*. 

B3 *. 

.* *. 

NO .* FIRST *. 

...*. TIME . .' 

*. THROUGH .* 

*. *A4 .* 

*. .* 



*A4 
INSTRUCTION AT 
B3 IS NOP'ED BY 
•SVCINIT' ROUTINE SO 
SUBSEQUENT LOGIC 
FLOW WILL ALWAYS BE 
TO SVCPT ROUTINE. 



.* 



C2 *. 

FIRST *. 

PARTITION 

SPECIFIED 

*D1 



*D1 
THE INITIALIZER CONVERTS 
THE PARTITIONS, NOT 
SPECIFIED BY THE CE TO 
BE TRACED, TO IGNORE. 
TESTS 1, 2, AND 3 TEST 
THE IGNORE OPTIONS, 
WHETHER SPECIFIED BY 
THE CE OR CONVERTED BY 
THE INITIALIZER, TO SEE 
IF ONE OF THEM IS THE 
PARTITION CAUSING THE 
INTERRUPT. 



.♦SECOND *. 
.* PARTITION *. 
. SPECIFIED . 
*. *D1 .* 



E2 *. 
.* THIRD *. 
PARTITION *. YES 
SPECIFIED .*... 
*D1 .* 



*C4 
THE INFORMATION IS 
PUT IN THE PREFACE 
TABLE BY THE CEAID 
INITIALIZER AND USED 
IN THE DECISIONS AT 
ED-C2,D2,E2. 



****E3********* 

* RETURN * 

* TO * 

* SUPERVISOR * 
*************** 



SVCINIT X 

**C5******* 

* NOP PREV. * 
*INST. TO PRE- 

* VENT REENTER- 
ING 'SVCINIT' 

* ROUTINE * 
*********** 



RESTSET X 

*****D5********** 

* MODIFY PART- * 

* ITION CHOICES * 

* WITH VALUES * 

* FROM PREFACE * 

* TABLE *C4 * 
***************** 



RELOC X 

*****E5********** 

* SAVE WORK * 

* REGISTERS * 

* PREPARE FOR * 

* RELOCATION * 

* OF ADCONS * 
***************** 



*****PI********** 

* SET * 

* UP * 

* FOR 

* FOLLOWING 

* LOOP * 
***************** 



*X»; 



F2 *. 

.* TRACE *. 

.* OR IGNORE * 

*. OPTION 

♦.SPECIFIED.* 

*. *B1 .* 

*. .* 



ALLTRACE .*. 



TRACE 

ALL 
SVC'S 



.X* 



CCMPARE 
BRNCH1 .*. 

Gl *. 

.♦ARE WE *. 

.♦ ALL DONE *. 

♦.SEARCHING THE. 

♦ . SVC .* 

♦.TABLE.* 

*. .* 

*NO 



HI *. 
.*IS THIS*. 
.♦ THE SVC ♦. YES 

. THAT CAUSED .♦ 

*.TKE INTE-.* 
*.RRUPT.* 
.* 



X 

***** 

*EE * SAVUM 

* B2* 



♦NO 



*****jl ********** 

♦ MOVE ♦ 

♦ POINTER ♦ 

♦ TO NEXT ♦ 

♦ SVC TO * 

♦ CHECK ♦ 
***************** 



.* HAVE *. 
C .♦ ALL SIX ♦. 
.*. SVC'S BEEN . 
♦. CHECKED .* 



**P4********** 
SET ♦ 
UP * 
FOR * 
FOLLOWING * 
* LOOP * 
***************** 



.*. 

G4 *. 

.♦ARE WE *. 

ALL DONE 

SEARCHING 

. THE SVC . 

♦.TABLE.* 



***** 

♦ EE * 

* B4* 



*NO 



***************** 



*J3 
FRAMED AREA INDICATES 
CODING THAT IS NOT 
PRESENT IN THE ASSEMBLY 
LISTING BUT IS A RESULT 
OF PROGRAM MODIFICATION 
BY THE 'SVCINIT' 
ROUTINE. 



COMP2 




X 


BRNCH2 




*. 




H4 


*. 




.*IS 


THIS*. 


YES .* 


THE SVC 


. . .*. 


THAT 


CAUSED 


* 


.THE 


INTE-. 




*.RRUPT.* 




* 


.* 



*****J4********** 

* MOVE * 

* POINTER * 

* TO NEXT * 

* SVC TO * 

* CHECK * 
***************** 



.* HAVE *. 

YES .* ALL SIX *. NO 

X...*. SVC'S BEEN .*... 

*. CHECKED .* 



*YES 

I SAVUM 



***** 
*EE * 
* B2*SAVUM 
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Chart EE- GSVC Trace: Print Mode (PDAIDGTP) (Part 3 of 3) 



.* ARE ♦ . 

YES .THERE ENOUGH* 

*. ENTRIES TO 

♦. FORMAT .» 



I/O 
AREA 
FULL 



GOFORM 
FORMAT X 

»»»«»D1***»*»** 

♦ LOAD 

♦ UPPER ENTRY 

♦ ADDRESS AND 

♦ I/O AREA 

♦ ADDRESS 



♦ El 
FORMAT1 



SAVE 
AREA 
FULL 



POST 
OVERFLOW 
INDICATOR 



MOVE ENTRIES 

IN FIELD UP 

16 BYTES 



* GET UPPER 
♦ENTRY ADDRESS. 
♦LOAD SAVE AREA 

♦ START ADDR 



TRACE 

ALL 
SVC'S 



♦ ♦^♦♦♦♦♦♦^ 

♦ CHANGE * 
♦ 'ALLTRACE» ♦ 

♦FROM A NOP TO A^ 
♦UNCONDITIONAL^ 

* BRANCH * 



Gl ♦. 
.♦ ARE ♦. 

BOTH *. YES 
ENTRIES ...... 


CONTINUE 

»»»«*G2*^^^**^^** 

♦ FILL 'BLANK* ♦ 

♦ AREA WITH ♦ 


SAVESTUF X 

♦ SAVE SVC 

♦ OLD PSW, 


. FORMATTED. ♦ 


♦ UPDATE RECORD ♦ 

♦ POINTER ♦ 


♦ AND PIK VALUE 



♦ ♦•♦♦^♦♦♦♦♦♦♦♦♦* 
♦MOVE BLANKS IN-* 

♦ TO PRINT LINE ♦ 
♦UPDATE I/O AREA^ 

♦ PNTR AND SAVE « 

♦ AREA POINTER * 



♦ STORE NEW * 
♦PRINTER RESTORE^ 

♦ REGS * 



»«»**D4»***»»***« 
♦CHAIN SPACE CCW^ 
♦AND PRINT CCW. ♦ 
♦SET POINTER TO ♦ 

♦ LAST ENTRY OF ♦ 

♦ SAVE AREA ♦ 



SET UP 

FOR FOLLOWING 
LOOP 



.DOES CODE. 
.♦ INDICATE ♦. YES 

♦ THE SUPERVISOR 

♦. *K1 .♦ 



»*»**G4* ♦*♦♦♦♦♦♦ 

♦ INCREMENT 

♦ POINTER TO 
♦NEXT PARTITION 

♦ TEST 



.♦ HAVE *. 

.♦ ALL THREE *. 

♦PARTITIONS BEEN* 

♦. CHECKED .♦ 



♦ IGNORE 
OPTION 
♦.SPECIFIED. 



♦ »D5*****^ 

* MODIFY ♦ 
♦INSTRUCTIONS 

AT 'BRNCH1' 
♦AND 'BRNCH2' 

♦ ^K2 ♦ 



♦♦♦G5^^^***^ 

ALTER 

CODE TO 

X'40« TO 

INDICATE 

SUPERVISOR 



♦ ♦^♦♦♦♦♦♦^ 

♦ MODIFY ♦ 
PARTITION TEST^ 

♦ AT F4 TO TEST 
♦FOR X'40' OR ♦ 

♦ HIGHER ♦ 



ANSWER WILL BE YES IF 
DECISION AT ED-F2 = IGNORE 
AND NO IF 
DECISION AT ED-F2 = TRACE. 



♦ •♦♦J4*«***^ 

INSERT MOD. 

LEVEL NUMBER 

IN 'NAME* IN 

PREFACE. 
RESTORE REGS 



♦ K2 
THE RESULTS OF THESE 
INSTRUCTIONS CAN BE 
BEST SEEN BY LOOKING 
AT ED-G1.H1, AND 
COMPARING THEM TO 
ED-G4,H4. 



. SVCPT 
X 

♦ED ♦ 
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Chart EF. GSVC Trace: Tape Mode (PDAIDGTT) (Part 1 of 3) 



#A1»***» 

SIO 

ENTRY 

POINT 



###A3««»»»»*» 

I/O 

INTERRUPT 

ENTRY POINT 



THIS 

OUR 

OUTPUT 

•DEVICE.* 



IS 

DEVICE 

BUSY 



B3 *. 
.« IS • . 

INTERRUPT 

FROM OUR 

. OUTPUT . 

•DEVICE.* 

**NO 



SAVE 
DEVICE 
STATUS 



**C4*«**»«» 

• MODIFY • 

•TEST1 (EG-C2)» 

TO RETURN 
• TO SUPVR • 



»**D1«*«***» 
RETURN TO 
SUPERVISOR 



D5 ». 

ERROR 



E2 *. 

.* HAVE ». 

* NINE * 

EVENTS BEEN 

♦. SAVED .» 

«. YET .» 

*• . * 

• YES 



**#E3*»*»*«» 

RETURN TO 

SUPERVISOR 



•••Fl***»»*« 

RETURN TO 

SUPERVISOR 



» EH • 
» HI* 
PRINT 
CKENTRY 

•*»*«F2********* 

• SAVE CSW 

• AND CAW. SAVE 
•ALTERNATE AREA 

• BEGINNING 

• ADDRESS 



*««#G2»»»»«*»« 

SAVE 

CHANNEL AND 

UNIT ADDRESS 

OF OUTPUT 

DEVICE 



ERRCOND .♦. 

E4 •. 
.* IS ♦ 

OUTPUT 

DEVICE 

.OPERABLE 



YES 



*«*H2»*»»«*« 

PUT 

CCW 

ADDRESS IN 

CAW 



IS *. NO 
DEVICE .*... 
BUSY .* 



***G3******* 

RETURN TO 

SUPERVISOR 



SPECIFY 

SYSLOG 

AS OUTPUT 

DEVICE 



.• WAS *. 

YES .«ONLY FIRST • 
...*.CCW EXECUTED 



.* WAS * 
YES .* OUTPUT 
...*. AN ERROR 
«. MSG 



• ••H4« 

PUT ERROR 

MSG CCW 

ADDRESS 

IN CAW FOR 

4C24A 



CLEAR 

I/O 
AREA 



X 

»**J2»*«««*«« 

SIO 

TRY TO 

WRITE OUT 

INFORMATION 



CLEAR X 

*»»*»J5**#»»»»* 

* RESTORE 

♦ CSW AND 

♦ CAW. LOAD 

* RETURN ADDR 



*K4 
WAS THE CCW 
CHAIN BROKEN 
IF YES RETRY OUTPUT. 



#»«K5*««»*«* 

RETURN TO 

SUPERVISOR 
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Chart EG. GSVC Trace: Tape Mode (PDAIDGTT) (Part 2 of 3) 



*B1 
MODIFIED BY 
INSTRUCTIONS 
AT EH-D5. 



*C1 
THE INITIALIZER CONVERTS 
THE PARTITIONS NOT 
SPECIFIED TO BE TRACED TO 
IGNORE. TESTS 1, 2, + 3 
TEST THE IGNORE OPTIONS. 
WHETHER SPECIFIED BY THE 
CE OR CONVERTED BY THE 
INITIALIZER, TO SEE IF 
ONE OF THEM IS THE 
PARTITION CAUSING THE 
INTERRUPT. 



* SAVE PIK * 

* OR PID * 

* VALUE * 

* * 
***************** 



C2 *. 

.* FIRST *. 

PARTITION 

SPECIFIED 

*C1 



****A3********* 

* * 

* SVCENTRY * 

* * 
*************** 



B3 *. 
* FIRST *. 

TIME *. YES 
THROUGH .*.... 
*A4 



*A4 
INSTRUCTION IS NOP'ED BY 
•SVCINIT' ROUTINE SO 
SUBSEQUENT LOGIC FLOW 
WILL ALWAYS BE TO 
•SVCPT' ROUTINE. 



.* 



*C4 
THE INFORMATION IS PUT 
IN THE PREFACE TABLE BY 
THE CEAID INITIALIZER 
AND USED IN THE DECISIONS 
AT EG-C2, D2, E2. 



.*SECOND *. 

PARTITION 

SPECIFIED 

*C1 



E2 *. 
.* THIRD *. 
PARTITION * 
SPECIFIED 

*C1 .* 
*. .* 
*. .* 



SVCINIT 

**B5******* 

* NOP PREV * 
*INST TO PRE- * 

. ..X* VENT REENTER- * 
*ING 'SVCINIT'* 

* ROUTINE * 
*********** 



RESTSET 

*****C5 ********** 

* MODIFY PARTI- * 

* TION CHOICES * 

* WITH VALUES * 

* FROM PREFACE * 

* TABLE *C4 * 
***************** 



RELOC 

*****D5********** 

* SAVE WORK * 

* REGISTERS * 

* PREPARE FOR * 

* RELOCATION * 

* OF ADCONS * 
***************** 



****E3********* 

* RETURN * 

* TO * 

* SUPERVISOR * 
*************** 



*****P1 ********** 

* * 

* SET UP FOR * 

* FOLLOWING *X 

* LOOP * 

* * 
***************** 



COMPARE 
BRNCH1 .*. 

Gl *. 

.*ARE WE *. 

.* ALL DONE 

SEARCHING 

THE SVC . 

*. TABLE.* 



F2 *. 
.* TRACE *. 
IGN .* OR IGNORE *. 
....*. CPTION 

♦.SPECIFIED.* 
*. *B1 .* 



TRACE .* TRACE *. YES 
X*. ALL .*.... 

*. SVC'S .* 



***** 

*EH * SAVUM 

* B2* 



*. 



*NO 



C0MP2 X 
BRNCH2 .*. 

HI *. 

.*IS THIS*. 

.* THE SVC * 

*. THAT CAUSED 

*THE INTER-.* 

*,RUPT .* 

*. .* 

*NO 



*****jl ********** 

* MOVE * 

* POINTER * 

* TO NEXT SVC * 

* TO TEST * 

* * 
***************** 



.* HAVE *. 
.* ALL SIX *. 
.*. SVC'S BEEN . 
*. CHECKED .* 
*. .* 
*. .* 
*YES 

'. SAVUM 

X 

***** 

*EH * 

* B2* 

* * 



***** 
*EH * 
* B2* 



*****P4********** 

* * 

* SET UP FOR * 
X* FOLLOWING * 

* LOOP * 

* * 
***************** 



G4 *. 

.*ARE WE *. 
ALL DONE 
SEARCHING 

. THE SVC . 
*. TABLE.* 



*. 



SHADED AREA INDICATES 
CODING THAT IS NOT 
PRESENT IN THE ASSEMBLY 
LISTING BUT IS A RESULT 
OF PROGRAM MODIFICATION 
BY THE 'SVCINIT' 
ROUTINE. 



YES 



***************** 



****«2********* 

* RETURN * 

* TO * 

* SUPERVISOR * 
*************** 



*NO 



COMP2 X 
BRNCH2 .*. 

H4 *. 

.*IS THIS*. 

* THE SVC * 

THAT CAUSED 

*THE INTER-.* 

*.RUPT .* 

*. .* 

*NO 



*****J4** ******** 

* MOVE * 

* POINTER * 

* TO NEXT * 

* SVC TO TEST * 



************ 



**** 



.* HAVE *. 
* ALL SIX 

SVC'S BEEN 
*. CHECKED . 



X 

***** 
*EH * 
* B2*SAVUM 
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Chart EH. GSVC Trace: Tape Mode (PDAIDGTT) (Part 3 of 3) 



TRACE ♦. NO 
ALL SVC'S .*... 
.SPECIFIED.* 



* LOAD REGS 

♦ 7 + 8. STORE 
♦RETURN ADDRESS 



♦*C4***»*«» 

♦ CHANGE ♦ 

♦ 'ALLTRACE' * 

♦FROM A NOP TO A 

♦UNCONDITIONAL^ 

♦ BRANCH * 



SWTCHTST .*. 

C5 ♦. 
.♦IGNORE ♦. 
YES .♦ OPTION 
...... SPECIFIED 

♦ . ^J3 




LOAD 

PUB 

ADDRESS 



TAPE 

DRIVE 

7 TRACK 



♦ MODIFY ♦ 
♦INSTRUCTIONS 

AT 'BRNCH1' 
♦AND 'BRNCH2' 

♦ *K3 ♦ 



»*E5**»***» 

♦MODIFY CCW 

CHAIN TO 

SET 800 

BPI MODE 



•••Fl« 

MOVE ALL 
ENTRIES IN 

SAVE AREA 
UP 16 BYTES 



DONTSET 
SVCK 

#»»»»F4« 



SET UP FOR 

FOLLOWING 

LOOP 



SAVESTUF 

♦ ••••Gl********- 

♦ SAVE SVC OLD 

♦ PSW. SAVE 

♦ REGS + 1 

♦ SAVE THE 

♦ PIK VALUE 



WANTPRNT .*. 

HI ♦. 
.♦ ARE *. 

.♦ THERE 
♦. ENOUGH 
♦ENTRIES TO. 
♦OUTPUT. ♦ 



♦ G2 
THE FIRST TIME 
THROUGH THE LOOP 
THE POINTER IS 
POINTING AT THE 
DECISION AT EG-C2. 



»»»»*G3»*»*** # **» 

♦ INCREMENT ♦ 

♦ POINTER TO ♦ 
♦NEXT PARTITION *X. 

♦ TEST ♦ 



H3 ♦. 

.♦ HAVE ♦. 

NO .♦ ALL THREE 

...♦. PARTITIONS 

♦. BEEN 

♦.CHKED.^ 



G4 ♦. 

.DOES THE^. 
♦ CODE INDI-r ♦ 

CATE SUPER- 

♦. VISOR .♦ 

♦. *G2 .♦ 



•*G5******* 

♦MODIFY CODE^ 

TO X'40« TO 

INDICATE 
SUPERVISOR 



• ♦^♦♦♦♦♦♦^ 

♦ MODIFY ♦ 
♦PARTITION TST^ 

AT G4 TO TEST 
♦FOR X'40« OR ♦ 

♦ HIGHER ♦ 



♦ NO 



LOAD 
RETURN 
ADDRESS 



♦ YES 



SUPERVISOR 



♦ J3 
ANSWER WILL BE 'YES' 
IF DECISION AT EG^B2 
= IGNORE AND 'NO* IF 
DECISION = TRACE. 



♦ K3 
THE RESULTS OF THESE 
INSTRUCTIONS CAN BE 
BEST SEEN BY LOOKING 
AT EG-G1, HI AND 
COMPARING THEM TO 
EG-G4, H4. 



«*»«J4*»«***»«* 

INSERT MOD. 

LEVEL NUMBER 

IN 'NAME' IN 

PREFACE. 
RESTORE REGS. 
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Chart EM. QTAM Trace: Core-Wrap Mode (PDAIDQTW) (Part 1 of 3) 



#AL»***« 
SIOENT 



*A2***«* 
IOENT 



SAVE 
WORK 
REGS 



SAVE 
WORK 
REGS 



.* FIRST *. 

TIME 

THRU THIS 

. ENTRY . 



POINT TO NEXT 

POSITION OF 

SAVE AREA 



BUILD 
•S' TYPE 

RECORD 



POINT TO 
NEXT POSITION 
OF SAVE AREA 



»F1 
ALTERED BY 
INSTRUCTION 
AT EP-F1,F3. 



E2 *. 
.* HAS *. 

.•INITIALIZER* 
.ROUTINE BEEN 
*. ENTERED .* 
*. YET .* 

"*YES 



F2 *. 
.» WERE ♦. 

.♦ANY TRACE/ *. 

'IGNORE OPTIONS. 

•.SPECIFIED.* 

». »F1 .» 



• NO 



D4 *. 

SVC 



F4 ». 

.•IS THIS*. 
PARTITION *. YES 
TO BE .*..X 
. IGNORED .* 



SAVE 
WORK 
REGS 



POINT TO NEXT 

POSITION OF 

SAVE AREA 



BUILD 
•V TYPE 
RECORD 
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Chart EN, QTAM Trace: Core-Wrap Mode (PDAIDQTW) (Part 2 of 3) 



***** 

*EM * 
* J4* 



♦Al 
FRAMED AREA 
INDICATES CODING 
THAT HAS BEEN 
ALTERED BY INITZ 
ON CHART EP. 



***** 

♦ EM * 

* F2* 



TRACE/ 

IGNORE 

.SPECIFIED. 



SAVUM 
CKDEVCE1 .*. 

CI *. 

.* IS ♦ . 

.FIRST DEVICE*. 

*. SPECIFIED TO . 

*.BE TRACED.* 



.SECONC DEVICE. 

♦.SPECIFIED TO . 

♦ .BE TRACED.* 



El *. 

.* IS *. 

.THIRD DEVICE*. 

♦.SPECIFIED TO . 

*.BE TRACED.* 



****F1********* 

* RETURN TO * 

* SUPERVISOR * 

* * 
*************** 



.FIRST DEVICE*. YES 
.SPECIFIED TO ...... 

♦BE IGNORED. ♦ 



D3 *. 

.♦ IS ♦. 

.SECOND DEVICE. 

.SPECIFIED TO . 

♦BE IGNORED. ♦ 



.♦ 



.THIRD DEVICE^. 
.SPECIFIED TO . 
♦BE IGNORED. ♦ 



* EM ♦ 
* F2^ 
**** 
OVFLIND X 

*****p3********** 

* STORE USER ♦ 

♦ REGISTERS, ♦ 
♦LOAD BEGINNING ♦ 

♦ AND END ADDR ♦ 

* OF WRAP AREA ♦ 
***************** 



**** 
OVERFLOW 

*****B5 ********** 

♦ * 

♦ POINT TO NEXT ♦ 

♦ POS OF SAVE ♦ 

♦ AREA ♦ 

♦ * 
***************** 



SAVE 
AREA 
FULL 



*****Q5********** 

* * 

* POINT TO ♦ 

* BEGINNING * 

* OF SAVE AREA ♦ 

* * 
***************** 



****P4 ********* 

* RETURN TO ♦ 

* SUPERVISOR ♦ 

* * 
*************** 



♦ RESTORE ♦ 

* WORK ♦ 

♦ REGS ♦ 

* * 
***************** 



**** F5***+++++^ 

♦ RETURN TO ♦ 

♦ SUPERVISOR ♦ 

♦ * 
*************** 



SIOCHK 


.*. 
G3 * 
* 


YES .♦ 
. ..♦. 

♦ « 


•S« 

TYPE 
EVENT 



*****H3********** 

* * 

* BUILD «I» * 

* TYPE ♦ 

* RECORD ♦ 

* * 
***************** 



*****K3********** 



***************** 



****«4********* 

♦ RETURN TO ♦ 

♦ SUPERVISOR ♦ 

*************** 
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Chart EP. QTAM Trace: Core-Wrap Mode (PDAIDQTW) (Part 3 of 3) 



SVCINIT 

• EM * 



»«B2« * 

» MODIFY • 

* 'RETPNT' TO • 

•PROVIDE AN EXIT* 

TO THE SVC ENT» 

» ROUTINE » 



SUBTRACT THE LOWER ADDR 
FROM THE UPPER ADDR AND 
DIVIDE THE RESULT BY 17. DOIT 



#**B4***»*»*» 

DETERMINE 

EVENT 

CAPACITY OF 

THE SAVE 

AREA »B3 



**C2******* 
* MODIFY * 

••SVCENTRY' SO* 
•SVCINIT' RTN 

* WILL NOT BE • 
•RE-ENTERED * 



THE RESULT OF THE 
MODIFICATIONS IS THE 
SHADED AREA ON CHART EN. 



»«»**C4********* 

• DECREMENT 

• END ADDRESS 

• BY 17 BYTES 

• AND STORE NEW 

• ADDRESS 



IGNORE 

OPTION 

.SELECTED 



»#D3******* 
* ALTER » 
NO *CHECK DEVICE * 

» X* QUESTIONS FOR 

TRACE *TRACE OPTION * 
» *C3 * 



E2 • . 

.* WERE *. 
THERE ANY 
TRACE OR 

. IGNORE . 
♦OPTIONS* 



«»E4******* 

LOAD THE 

SAVE AREA 

BEGINNING 

ADDRESS 



ALTER 'ENTR'* 

* TO BYPASS 
THE 'CKDEVCE' 

* CHAINS 



**F3»****** 
ALTER 'ENTR'» 
*TO BRANCH TO 
* THE 'CKDEVCE' 
* CHAINS 
* *G3 * 



•*»*F4******** 

PUT X'FF' 

INTO FIRST 

BYTE OF SAVE 

AREA TO 

CLEAR AREA 



SAVE THE 

REGISTERS 

USED BY 

THE ROUTINE 



INSTRUCTION BLOCK 
AFFECTED IS LOCATED 
AT EM-F2. 



X 

*EP * 
* E2* 

ENTR 



.»HAS AN *. 

* ALTERNATE 

AREA BEEN 

•.SPECIFIED. 



NOALT X 

*»«**J1*******«« 

* LOAD THE 
*CE SAVE AREA'S 

* BEGINNING AND 
« ENDING 

» ADDRESS 



SETUP 

#***«J3**»***»** 

* LOAD THE 

* ALTERNATE 

* AREA'S 

* BEGINNING AND 
•ENDING ADDRESS 
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Chart EQ. QTAM Trace: Tape Output Phase (PDAIDQTT) (Part 1 of 2) 



****A1*****"*** 

FROM 

SUPERVISOR 

SIO ROUTINE 



»«A2**»**«* 

FROM 

INTERRUPT 

HANDLER 



ENTRY FROM 
SVC HOOK 



BUILD «S' 

TYPE 

RECORDS 



BUILD 'I' 

TYPE 

RECORDS 



SAVE THE 

EXIT 

ADDRESS 



SVCINIT 

* ALTER • 

* PREVIOUS 

* INSTRUCTION 

* TO NOP 



«*C3»*«»*»* 
» CHANGE » 
♦EXIT ADDRESS 

AT Fl FROM 
* 'ENTR* TO 
* 'SVCENT' * 



FIRST 

TIME 

THROUGH 



Dl *. 

.** OUTPUT ** 
«. DEVICE 




YES 


» SAVE THE * 


♦ GET ADDR OF ♦ 

♦ I/O AREA AND • 

♦ UPDATE CCW ♦ 


•INTERRUPTED* 
*»NO 




• STATUS • 


♦ DATA ADDRESS ♦ 


DUMPTST X 

»«#»»E1»*»**«»*»* 

* GET ADDRESS » 

* OF LOGICAL * 
« TRANSIENT * 
» AREA * 




»E2 
THIS ERROR MESSAGE 
INDICATES DEVICE 
NOT OPERABLE. 


X 

♦ GET ADDR OF ♦ 

♦ ERROR MESSAGE ♦ 
« »£2 ♦ 

♦ * 


X 

.*. 

Fl ». 

.** DUMP IN ** 
*. PROGRESS 
*. .* 

'♦NO 
«•** . 

* Gl *..! 




YES 

X 

• ER*» 

• Hl» 

WANTP 
MO 


#«F2******* ' 
• MODIFY • 


X 
F3**"^. 
NO .♦* 9-TRACK *♦. 


• MODE • 


"'•YES 


«»*« X 

ENTR .*. 

Gl *. 

•Initialization 
•.complete .* 


U 

»»G2**»*«*« 
♦SUBSTITUTE • 

♦ 'CKDEVCE1' ♦ 

♦ FOR 'SAVUM' ♦X.. 

♦ »H5 ♦ 


X 
DONTSET .♦. 

G3 ». 
.♦ «OPT« ♦. 
YES .BYTE IN STD.*. 

♦.PREFACE TABLE.* 

•.INDICATES.* 
♦.'IGN'.* 



D4 *. 

SVC 31 



*»«E4*^***»* 

RETURN TO 

SUPERVISOR 



STORE 'V 

TYPE SVC 

PREFIX 



SAVE SVC OLD 

PSW AND 
REGS AND 1 



GET DEVICE 
INTERRUPT 
ADDRESS 



*«J3».*»»«» 

CHANGE 

ENTR TO 

BRANCH TO 

OVFLIND 



CHANGE 

ENTR TO 

LOAD A 

HALFWORD 



• H5 
THE INITIALIZATION 
CODING DETERMINES 
WHICH STRING OF 
CODING WILL BE USED, 
DEPENDING ON WHETHER 
IGNORE OR TRACE IS 
SPECIFIED— 

- 'CKDEVCE1' FOR IGNORE, 

- 'SAVUM' FOR TRACE. 
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Chart ER. QTAM Trace: Tape Output Phase (PDAIDQTT) (Part 2 of 2) 



CKDEVCEl .». 

BL *. 
.• FIRST ». 

DEVICE * 
INTERRUPTED 
IGN .» 



YES 



.•SECOND ». 
YES .* DEVICE * 
X..*. INTERRUPTED 
• . IGN .* 



Dl • - 


D2 *. 


.* THIRD *. 


.» THIRD *. 


DEVICE ». 


YES .* DEVICE 


INTERRUPTED .* 


X..». INTERRUPTED 


IGN .• 


*. KEEP 



B2 ». 
.* FIRST •. 

* DEVICE • 

INTERRUPTED 
». KEEP .• 



.•SECOND *. 
YES .» DEVICE • 
X..«. INTERRUPTED 
*. KEEP ,» 



SAVE 
AREA 
FULL 



**F1«*«*»*» 
•SET UP ••• • 

TO INDICATE 

LOST ENTRY 

DUE TO 

• OVERFLOW • 



«»»»G1*»»«»«»* 

MOVE ANOTHER 

ENTRY 

INTO THE 

SAVE AREA 



.• TEN •. 
• ENTRIES 

IN THE I/O 
«. AREA 



.» DEVICE *. 
.END ON OUTPUT. 
*. DEVICE .* 



»»*G3»**»«»* 

SAVE I/O 

EVENTS TO 

BE PUT OUT 

ON NEXT 

INTERRUPT 



RESTORE CSW, 

CAW, AND 

RETURN 

ADDRESS 



*»»K3«*»«*«*» 

RETURN TO 

ENTRY POINT 



B4 ». 

.•OUTPUT *. 

• DEVICE » 

INTERRUPTED 



GET PUB 

BUSY BYTE 

ADDRESS 



#«#D5»***»*«» 
GET CHANNEL 

AND UNIT 

ADDRESS FOR 

SYSLOG 



»*«#*E4»*«»»»*»* 

• SAVE OUTPUT 
•DEVICE'S CHAN- 

• NEL AND UNIT 

« ADDR. PUT CCW 

• ADD IN CAW 



WRITE I/O 

EVENTS ON 

TAPE 



H4 *. 


H5 ». 




.• TAPE 


CHANNEL •. YES 


.• CHANNEL 


BUSY ...... 


«. AND UNIT 




». STORED 



.» ERROR ». 

. CONDITION . 

•.POSSIBLE .» 
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DUMPGEN (Stand-Alone Dump) 



DUMPGEN (Stand-Alone Dump) provides the 
ability to produce a stand-alone dump 
program (COREDUMP/DUMPCORE) tailored to 
system requirements. The DUMP is capable 
of displaying the contents of main storage 
from a minimum of 8K bytes to a maximum of 
163 84K bytes. 

When you execute the DUMP, the original 
contents of bytes 0-23 and the 640 bytes, 
which this program occupies, are destroyed. 
If you need information in either of these 
areas, manually display it on the 
operational panel of the CPU and record it. 



EXECUTING DUMPGEN 



DUMPGEN is provided in the relocatable 
library of the IBM supplied system. You 
must catalog it to the core image library. 
Execute it in any partition by the command: 

// EXEC DUMPGEN 

You enter DUMPGEN at BEGIN and read its 
control statements from SYSIPT. The two 
types of control statements are ASSGN and 
OPTN. 



ASSGN Statement ; ASSGN defines the output 
device for COREDUMP. The format of the 
ASSGN statement is: 

r t t 1 

| Name | Operation | Operand | 
i x L I 

| (blank) | ASSGN | SYSLST,x f cuu« [ 
L_ X- X- 1 

SYSLST The only valid logical unit 
assignment. 

x'cuu 1 Must define the address of the 
SYSLST printer. If the ASSGN 
statement is omitted, then X f 00E f 
is assumed. 



OPTN Statement : OPTN defines the upper 
limit of main storage to be displayed, the 
type of printer control, number of card 
decks, and the load address for the program 
to be generated. The format of the OPTN 
statement is as follows. 



j Name j Operation j Operand | 


L i 


„_1„ -I 


j. 1 


--J.-- _l 


| (blank) | OPTN 


| CORE=nnnnnK | 




|INTR= /NO \ | 
1 I YES/ | 




| DECKS=nnnnnnn | 




| LOADADR= ( D '■ nnnnnnnn ■ ) | 
| Ix^xxx' /| 






|FORMAT= /NO \ j 
I lYESJ 1 






|TAPEIPL=/NO \ | 
| (YES/ | 


L X 


-_L. -1 



CORE Defines the area of main storage to 
be displayed. nnnnnK may be any 
number from 8K to 16384K in 
increments of 2K. An odd 
specification (for example, 15K) is 
rounded high to the next even 
number (in the example, 16K is 
assumed) • 

INTR NO produces a DUMP program which, 
when loaded, prints out the 
contents of main storage on the 
SYSLST printer defined with the 
ASSGN statement or X^OE 1 . 

YES produces a DUMP program which, 
when loaded, enters the WAIT state. 
Either press the INTERRUPT button 
on the CPU operating panel to print 
the output on X f 00E f or, first 
press the STOP button, and then the 
START button of the printer desired 
for the output device . 

DECKS Specifies the number of DUMP card 
decks (punched out on SYSPCH) 
desired, nnnnnnnn may be any 
decimal number from 1 to 
99,999,999. A blank card separates 
each deck produced. If DECKS is 
omitted, then 1 deck is produced. 

LOADADR Specifies the load address of the 
DUMP. Any valid main storage 
address of the CPU for which this 
program is intended may be entered 
from 128 to 16,766,568. However, 
if the load address is not aligned 
to a doubleword, then the specified 
address is rounded high to the next 
doubleword. The specified address 
is checked for validity. 

FORMAT If NO is specified or FORMAT is 
omitted, a non^ formatting 
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translating dump is generated 

(COREDUMP) . 



YES produces a translating 
stand-alone dump (DUMPCORE) , which 
formats and displays the DOS 
supervisor tables after displaying 
the contents of main storage. This 
formatted display depends upon the 
location of the communications 
region. If the stand-alone dump is 
loaded into the location of the 
communications region , the program 
is terminated when the formatted 
display is to occur. 

TAPEIPL If NO is specified or TAPEIPL is 

omitted and SYSPCH is assigned to a 
tape unit f the stand-alone dump 
records are written on tape 
preceded by an ASA character. 

If YES is specified and SYSPCH is 
assigned to a tape unit, the 
stand-alone dump written on tape 
may be IPLed directly from the tape 
unit . 



3. A program generated using the OPTN 
LOADADR statement displays all of main 
storage, and using the OPTN CORE 
statement displays all of main storage 
up to the beginning of the program. 

4. The name field must be blank. 

5. Only one operation and only one 
operand per control statement is 
allowed. 

6. One or more blanks must follow the 
operand if comments are desired. 

7. DUMPGEN requires either the OPTN CORE 
or LOADADR statements because it must 
be told where the DUMP is to be 
loaded. All other statements may be 
omitted, and if they are, DUMPGEN 
produces one card deck with the 
INTR=NO option and a printer 
assignment of X'OOE*. 



DUMPGEN MESSAGES 



The control statements may be specified 
in any order or amount; however, the 
following rules apply: 

1. The last statement processed of a 
duplicate operation overrides all 
previous statements of the same 
operation with similar operands (if 
DECKS=2 is followed by DECKS=5, five 
programs are generated) . 

NOTE: CORE and LOADADR are considered 
similar functions. Thus, the 
last statement of these two that 
is processed determines the 
amount of main storage to be 
displayed and the load address 
of the DUMP. 

2 . Decimal operands may contain leading 
zeros. 



The functions of DUMPGEN-to- operator error 
message routines are to: 

• Cancel the job if SYSLOG is not a 1052. 

• Reissue the message if operator response 
is ALTERNATE CANCEL. 

• Process an operator response of EOB as 
IGNORE. 

• Cancel the job if operator response is 
CANCEL. 

• Ignore the control card in question when 
the operator response is IGNORE. 

If none of the preceding operator 
responses is issued, then DUMPGEN assumes a 
correction has been made and processes it. 
See Appendix B for Error Messages.. 
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COREDUMP 



COREDUMP is the installation-tailored dump 
program generated by DUMPGEN if FORMAT=NO. 
The specified contents of main storage 
starting at main storage address X'18" and 
the registers , the PSWs, the CAW, and the 
CSW, are displayed (decimal bytes 0-23 are 
displayed as binary zeros) . Each COREDUMP 
program is generated with a specific number 
of lines to be printed. This is determined 
by the DUMPGEN control statements. When 
the total number of lines has been printed, 
COREDUMP is terminated and enters the WAIT 
state. Each line contains a maximum of 
eight fullwords. If the remaining portion 
of any line or group of lines is identical 
to the first word to be printed, the first 
word and the word SAME are printed, and 
printing is suspended until a line with 
different characters is encountered. See 
Figure 19, Part 1, for the printed output. 

If any line to be printed is identical 
to the last line previously printed and the 
words of that line are different from each 
other, printing is suspended until the 
contents of the line change. 



2. 



SWA 
Bits 



If the background communications 
region can be located after main 
storage is dumped, the DOS supervisor 
tables of the supervisor being dumped 
are formatted and printed. See Figure 
19 for a sample of the output from 
DUMPCORE. 



4 5 



SWB 
Bits 



3 4 



6. 7 



TAPEIPL= YES 

FORMAT = YES 

Bypass reverse scan routine 

SYSLOGis not a 1052 

SYSIPT EOF 

CORE or LOADADR is specified 

Bypass binary address routine 

Allow round out of addresses 



-+• Reserved 

-*- Dump addresses are relocated 



DUMPCORE 



DUMPCORE is the formatting stand-alone dump 
generated by DUMPGEN when FORMAT=YES is 
specified. DUMPCORE functions the same as 
COREDUMP with the following exceptions. 

1. Low core (PSWs, CAW, CSW, and TIMER 
data) is formatted and printed before 
main storage is dumped. 



BCRSW 12 3 4 5 6 7 
Bits 



X'FO' = Bypass switch ON X'OF' = Bypass switch OFF 

Figure 18. DUMPGEN Program Switches 
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GR 0-7 000000FF B0004780 00000000 00002068 
GR 8-F 00001EB4 00000208 00001EA4 00001000 



00002414 0000213B 00000826 80000700 
00002000 00003000 00004000 00000002 



OLD PSWS 
EXT INT 
SVC CALL 
PROG CK 
MACH CK 
I/O 

CSW 
CAW 
TIMER 



FF050000 00000000 
FF050007 4A006C28 
00000000 00000000 
5B5BC2C5 D601F440 
FF07000C 000012EC 

00000000 04000000 

10000EC8 

FE860700 



000000 
0002 
000040 
000060 
000080 
OOOOAO 
OOOOCO 
OOOOEO 
000100 
000120 
000140 
000160 
000180 
001A0 



00000000 
FF050007 
0003FFA8 
00040000 
00000000 
00C141A0 
470006D0 
06B006BO 
A00C4710 
008F9281 
A00095FF 
47F0B3E2 
90586 020 
4570016C 



00000000 
4A00 6C2 8 
08000000 
000003AE 
00000000 
BEB44570 
909F0270 
06B006BO 
010A9250 
A0004BA0 
B0B29200 
42B00107 
90606040 
D20EB092 



00000000 
00000000 
0003FFA0 
00000000 
00000000 
0ACA18A8 
922 8022F 
06B041BB 
A0019604 
030249A0 
B0B20788 
58B00290 
90686 06 
B0A2DC0E 



00000000 
00000000 
00000000 
0003FEA0 
00030003 
419001A4 
45900388 
001741BB 
A00F95E2 
034441AA 
9680A001 
9180A000 
9070D21B 
B092BEA4 



NEW PSWS 
EXT INT 
SVC CALL 
PROG CK 
MACH CK 
I/O 



00000000 
5B5BC2C5 
FE857B00 
00000000 
000506B0 
92FFB0B3 
47F000DC 
00504570 
A0024780 
BEA40778 
4400047C 
07175 890 
90100270 
1BAA0D0F 



00040000 0F0015F4 
00040000 000003AE 
00040000 OOOOOOCO 
00000000 00000AE4 
00040000 00000378 



00000000 
D6D1F440 
00FEFB64 
000OOAE4 
06B041BB 
458000FA 
06B006BO 
01644180 
0C9C95C1 
94F902E3 
4780B3E2 
A00448 80 
020790 08 
B092000C 



FF050000 
FF07000C 
00040000 
00040000 
00724570 
9200B0B3 
06B006B0 
01A49640 
A0024780 
D7010300 
947FA001 
022E5000 
80009680 
43A10010 



00000000 
000012 EC 
0F0015F4 
00000378 
0164940F 
47F0B494 
06B006B0 
A0019120 
0C9C9203 
03009283 
92F0B3FF 
902C6000 
A00007F7 
42A00347 



.U. 



.A 



S 

£ . . . S .... A 

.. 9.TP 

».. S . . . 

.0 S £. .-. 

.-. — .— .K. ...K 7 



07540 
007560 
007D00 
07D2 
07D40 
007D60 
007D80 
07DA0 
007 DCO 
007DE0 
007E00 
007E20 
03FDA0 



B056B161 C2C7C6F2 
00000000 — SAME— 
00000000 00000000 
00010001 00020003 
0D0880O0 0D000006 
08007D58 00000000 
00007DE8 000070F0 
002008FO 24006E35 
13000000 00000000 
08007DD8 20000001 
08007DF8 20000001 
00000000 — SAME — 
END OF CORE DUMP 



C6F10000 00000000 00000000 00000000 00000000 00000000 



00000000 
00140C98 
00007D50 
0E006FFC 
08006000 
80000000 
00000079 
01006E35 
1E001E08 



OOOOOAOO 
00700CB0 
00007D70 
2O000D08 
3200D7D9 
00000000 
47000000 
20000078 
30000081 



00007D50 
0D080038 
07007D70 
OO00OOC6 
C9D5E340 
00000000 
07007DB2 
05006E34 
5B5BC2D6 



00000000 
01014400 
40000006 
00070100 
40400000 
OOOOFFOO 
40000006 
60000079 
D7C5D5D9 



00070000 
00000000 
31007D72 
00008000 
00000000 
00000000 
31007DB4 
31007DB4 
5B5BC2C3 



000A0001 
00000000 
40000005 
08000003 
00000800 
00000000 
40000005 
40000005 
D3D6E2C5 



•Y...O..-...PR INT 
.0 



$$BOPENR$$BCLOSE 



Figure 19. Sample Output of DUMPCORE (Part 1 of 4) 



84 DOS System Service Programs 







*** COMMUN 


[CATION REGION *** 


HEX 


BG 


F2 


Fl 


DISP 


02A8 


02A8 


02A8 


00 


08/05/70 


08/05/70 


08/05/70 


C8 


6000 


6000 


6000 


0A 


6000 


6000 


6000 


OC 


0000 


0000 


0000 


OE 


0000000000 


0000000000 


0000000000 




00000000 


00000000 


00000000 


17 


00 


00 


00 


18 


NO NAME 


NO NAME 


NO NAME 


20 


0003FFFF 


0003FFFF 


0003FFFF 


24 


0000754F 


0000754F 


0000754F 


28 


00000000 


00000000 


00000000 


2C 


0000 


0000 


0000 


2E 


0000 


0000 


0000 


30 


0003FFFF 


0003FFFF 


0003FFFF 


34 


EE 


EE 


EE 


35 


02 


D2 


02 


36 


FED08000FE50 


FED08000FE50 


FED08000FE50 


3C 


00C6 


00C6 


00C6 


3E 


2061 


2061 


2061 


40 


2068 


2068 


2068 


42 


20E9 


20E9 


20E9 


44 


20EA 


20EA 


20EA 


46 


2128 


2128 


2128 


48 


21BE 


21BE 


21BE 


4A 


21C2 


21C2 


21C2 


4C 


21C6 


21C6 


21C6 


4E 


38 


38 


38 


4F 


080570128 


080570128 


080570128 


58 


0000 


0000 


0000 


5A 


1EA4 


1EA4 


1EA4 


5C 


0000 


0000 


0000 


. 5E 


0009 


0009 


0009 


60 


0F68 


0F68 


0F6 8 


62 


OFFA 


OFFA 


OFFA 


64 


0000 


0000 


0000 


66 


0000 


0000 


0000 


68 


0000 


0000 


0000 


6A 


0000 


0000 


0000 


6C 


2 03C 


203C 


203C 


6E 


0000 


0000 


0000 


70 


$$B0 


$$B0 


S$BO 


74 


003B000102 


003B000102 


003B000102 


79 


0010C0 


001 OCO 


0010C0 


7C 


10A4 


1DA4 


10A4 


7E 


0000 


0000 


0000 


80 


00000000 


00000000 


00000000 


84 


02A8 


02A8 


02A8 


86 


0000 


0000 


0000 


88 


00000334 


00000334 


00000334 



COMMUNICATION REGION ADORESS 

DATE 

PPBEG ADDR 

END OF STORAGE PROTECT 

SEEK ADDRESS BLOCK, ONLY BG VLD 

PROBLEM PROGRAM USERS 

AREA IN HEX 
UPS I BYTE IN HEX 
JOB NAME 

UPPERMOST BYTE OF EACH PPA 
END ADDR OF LAST FETCH OR LOAD 
LARGEST PROBLEM PROGRAM PHASE 
LENGTH OF PP LABEL AREA 
PROGRAM IDENTIFICATION KEY 
END OF STORAGE ADDRESS 
MACHINE CONFIGURATION 
SYSTEM CONFIGURATION 
JOB CONTROL SWITCHES 
DISK ADDR OF LABEL CYLINDER 
ADDR OF FOCL 
ADDR OF PUB 
ADDR OF FAVP 
ADDR OF JIB 
ADDR OF TEB 
ADDR OF FICL 
ADDR OF NICL 
ADDR OF LUB 
LINE COUNT FOR SYSLST 
SYSTEM DATE 
LIOCS COM BYTE 
ADDR OF PIB TABLE 
LAST CHECK POINT NO. 
LENGTH OF LUBID QUEUE 
ADDR OF DIB 

CHANNEL SCHEDULER ERROR BLOCK 
ADDR OF PC OPTION TABLE 
ADDR OF IT OPTION TABLE 
ADDR OF OC OPTION TABLE 
KEY OF PROGRAM WITH IT SUPPORT 
ADDR OF LUBID QUEUE 
LTK 

BG ONLY 

SYSTEM SEEK ADDR 
ADDR OF LTA SAVE 
ADDR OF PIB EXTENSION 
ADDR OF MICR DTF LABEL 
ADDR OF QTAM VECTOR TABLE 
ADDR OF BG COMREG 
RESERVED . 
ADDR OF COMREG EXTENSION 





BG 


00 


00000000 


04 


00000000 


08 


00000100 


OC 


00000000 


10 


0000 


12 


0000 


14 


00002057 


18 


000010A2 


1C 


00002258 


20 


0000214C 


24 


00000000 


28 


00000000 


2C 


00000000 


30 


00000000 


34 


00000000 


38 


00000000 



*** COMMUNICATION REGION EXTENSION *** 



F2 

00000000 
00000000 
00000100 

oboooooo 

0000 

0000 

00002057 

000010A2 

00002258 

0000214C 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 



Fl 
00000000 
00000000 
00000100 
00000000 
0000 
0000 

00002057 
000010A2 
00002258 
0000214C 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 



ADDR OF CE TABLE 

TRACK HOLD TABLE ADDR 

PIBDIFF 

AB TERMINATION TABLE ADDR 

LID 

PIK 

ADDR OF TASK REGUESTOR ID TABLE 

ADDR OF QTAM/AP MVCFLO 

SDR TABLE ADDR 

TEBV TABLE ADDR 

OLTEP BUCKET ADDR 

RASLINK ADDR 

TRANSLATION TABLE ADDR 

RESERVED 

JA COMMON TABLE ADDR 

JA PARTITION TABLE ADDR 



Figure 19. Sample Output of DUMPCORE (Part 2 of 4) 
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*** PROGRAM INFORMATION BLOCK *** 



AB PIB 
BG PIB 
F2 PIB 
Fl PIB 
AR PIB 
OS PIB 
SP PIB 



85 
82 
80 
80 
80 



00 
00 
00 
00 
00 
00 
00 



E2D7 
C2C7 
C6F2 
C6F1 



47F00 244 
19005F88 
19040000 
19040000 
C1D9 47F00E94 
6150 47F00DC2 
E2D7 47F00230 

AP SUBTASK PIBS 



OOOCOOOO 
0A006000 
00040000 
00040000 
00001 OCO 
60000408 
20C00016 



0000 
840 B 



OOFF 
1E80 



0134 0500 
0244 0500 



0700 
0C10 
1F05 



58B0 
1418 
0000 



80004040 00000000 
80004040 00000000 
80004040 QOOOOOOO 
80004040 00000000 
80004040 00000000 
80004040 00000000 
80004040 00000000 
80004040 00000000 
80004040 00000000 



PARTITION SAVE AREA 



00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 



00000000 

oooooooo 

00000000 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 



F2 
Fl 



PSW=FF0500074A006C28 

REG 9-0 9A00709E 00006FFC 00006010 00006FD0 00007FD0 000002A8 00000002 OOOOOOFF 

REG 1-8 00006468 00002080 00002216 00000F68 00002214 000020E9 AA006A88 9A006806 

*** PROG NOT ACTIVE *** 

*** PROG NOT ACTIVE *** 



*** LOGICAL UNIT BLOCK TABLE *** 



LUB 


LOGIC 


PUB 


JIB 




TAB 


UNIT 


PRT 


PTR 


cuu 


BG 


SYSTEM LUBS 






00 


SYSRDR 


00 


FF 


ooc 


01 


SYSIPT 


00 


FF 


ooc 


02 


SYSPCH 


01 


FF 


00 D 


03 


SYSLST 


02 


FF 


00 E 


04 


SYSLOG 


03 


FF 


OIF 


05 


SYSLNK 


OA 


FF 


292 


06 


SYSRES 


OB 


FF 


29 3 


07 


SYSSLB 


FF 


FF 


UA 


08 


SYSRLB 


FF 


FF 


UA 


09 


SYSUSE 


FF 


FF 


UA 


OA 


SYSREC 


FF 


FF 


UA 


BG 


PROGRAMMER 


LUBS 




OB 


SYSOOO 


OA 


FF 


292 


OC 


SYS001 


OA 


FF 


29 2 


00 


SYS002 


OA 


FF 


292 


OE 


SYS003 


OA 


FF 


29 2 


OF 


SYS004 


FF 


FF 


UA 


10 


SYS005 


FF 


FF 


UA 


11 


SYS006 


FF 


FF 


UA 


12 


SYS007 


FF 


FF 


UA 


13 


SYS008 


FF 


FF 


UA 


14 


SYS009 


FF 


FF 


UA 


15 


SYS010 


FF 


FF 


UA 


16 


SYS011 


FF 


FF 


UA 


17 


SYS012 


FF 


FF 


UA 


18 


SYS013 


FF 


FF 


UA 


19 


SYS014 


FF 


FF 


UA 


1A 


SYS015 


FF 


FF 


UA 


IB 


SYS016 


FF 


FF 


UA 


1C 


SYS017 


FF 


FF 


UA 


ID 


SYS018 


FF 


FF 


UA 


IE 


SYS019 


FF 


FF 


UA 


IF 


SYS020 


FF 


FF 


UA 


20 


SYS021 


FF 


FF 


UA 


21 


SYS022 


FF 


FF 


UA 


22 


SYS023 


FF 


FF 


UA 


23 


SYS024 


FF 


FF 


UA 


24 


SYS025 


FF 


FF 


UA 


25 


SYS026 


FF 


FF 


UA 


26 


SYS027 


FF 


FF 


UA 


27 


SYS028 


FF 


FF 


UA 


28 


SYS029 


FF 


FF 


UA 


F2 


SYSTEM LUBS 






29 


SYSRDR 


FF 


FF 


UA 


2A 


SYSIPT 


FF 


FF 


UA 


2B 


SYSPCH 


FF 


,FF 


UA 


2C 


SYSLST 


FF 


FF 


UA 



Figure 19. Sample Output of DUMPCORE (Part 3 of 4) 
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*** PHYSICAL UNIT BLOCK TABLE *** 



CHAN CHAN TEB DEV DEV CHAN JOB 
AND QUE PTR TYP CODE SCHD CTL 
UNIT PTR FLGS FLGS 



DEV SWIT EOF IOERR OPER 

BUSY CHAB SYSRDR QUED INTV 
LE SYSIPT RECOV REG 



DEV BURST SEVEN 
END DV ON TRACK 
POST MPX TAPE 



00 


OOOC 


FF 


00 


11 


00 


00 


FC 


001 


OOOD 


FF 


00 


21 


00 


00 


FC 


02 


OOOE 


FF 


00 


42 


00 


00 


FC 


03 


00 IF 


00 


00 


00 


00 


80 


F8 


04 


02 80 


FF 


00 


50 


C3 


00 


CO 


005 


0281 


FF 


01 


50 


CB 


00 


C8 


06 


0282 


FF 


02 


50 


C3 


00 


CO 


07 


0283 


FF 


03 


50 


C3 


00 


CO 


08 


0290 


FF 


00 


60 


00 


00 


F8 


09 


0291 


FF 


00 


60 


00 


00 


F8 


OOA 


0292 


FF 


00 


60 


00 


00 


FC 


OOB 


0293 


FF 


00 


60 


00 


00 


FC 



*** ERROR RECOVERY BLOCK *** 



1018 


ERROR QUE 


ADDR 












0D08 


RETRY ERP 


EXIT 












0CE6 


IGNOR ERP 


EXIT 












0CF4 


DISWHY EXIT 












2018 


CHAN OUE TABLE 












1470 


CANCEL EXIT 












1070 


LAST ERROR 


OUE 












1002 


LAST ENTRY 


ADR 












0000 


REG I/O KEY 












1474 


ATTN CANX 


EXIT 












148A 


ATTN DEOU 


EXIT 












01A4 


ATTENTION 


EXIT 












$$ANERR FETCH 


NAME 












STORED CSW 


PUB 


FLAG 


MSG * 


SENSE DATA 


SEEK ADR 


DEV 






ADDR 


BYTE 


CODE 






ADDR 


00000F580E000005 


20C0 


04 


00 


002000C80000 


003A0009 


293 


0000000000000000 


0000 


00 


00 


000000000000 


00000000 


000 


0000000000000000 


0000 


00 


00 


000000000000 


00000000 


000 


0000000000000000 


0000 


00 


00 


000000000000 


00000000 


000 


0000000000000000 


0000 


00 


00 


000000000000 


00000000 


000 



MESSAGE CODE IS SECOND AND THIRO BYTE OF DEVICE ERROR RECOVERY MESSAGES 
GENERATED BY PHYSICAL IOCS (EXAMPLE 0P08A INTERV REO) 





*** CHANNEL QUEUE 


TABLE *** 


POS 


CHAIN 
PTR 


CCB ADDR 


CUU 


00 


FF 


006468 


OIF 


01 


02 


006480 




02 


03 


000000 




03 


04 


000000 




04 


05 


000000 




05 


06 


000000 




06 


07 


000000 




07 


08 


000000 




08 


FF 


oooooo 





*** FLOATING POINT REGISTERS *** 

REG 00.00000000000000 

REG 2 00.00000000000000 

REG 4 00.00000000000000 

REG 6 00.00000000000000 



*** EOJ *** 



Figure 19. Sample Output of DUMPCORE (Part 4 of 4) 
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Chart 06. DUMPGEN, COREDUMP, and DUMPCORE (DUMPGEN1) 



f DUMPGEN \ 
V(UBDMPGN) J 



DUMPGEN 



FA, FB 



DUMPGEN reads in a processes the control cards, 
ASSGN and OPTN, for the dump program to be 
generated. If FORMAT = YES is specified, then 
DUMPGEN1 is loaded and overlays the COREDUMP 
area of DUMPGEN and this area is named 
DUMPCORE. After all the control cards have been 
processed and any errors have been corrected r 
DUMPGEN outputs to SYSPCH the number of stand- 
alone dump programs (either COREDUMP or 
DUMPCORE) that are specified by the DECKS = 
option. 



0°0 



C COREDUMP J 



COREDUMP 



FC,FD 



COREDUMP displays the contents of registers 0-15 
followed by the contents of main storage. The 
hexadecimal representation and the character 
itself (if it is presentable) of each main storage 
position is printed. 

Note: If the remaining portion of any line or a 
group of lines is identical to the first word to be 
printed, the first word and the word SAME is printed 
and printing is suspended until the contents of 
main storage changes (See Figure 19 part 1). If 
any line to be printed is identical to the last line 
previously printed and the words of that line are 
different from each other, then printing is sus- 
pended until the contents of the line changes. 



f EOJ Wait J 



f DUMPCORE N 
V (DUMPGEN!) J 



DUMPCORE 



FE 



DUMPCORE displays the constants of registers 0-15 
followed by a formatted printout of low core (PSWs, 
CAW, CSW and TIMER data) followed by the contents 
of main storage. The hexadecimal representation and 
the character itself (if it is printable) of each main 
storage position is printed. 
Note: If the remaining portion of any line or a 
group of lines is identical to the first word to be 
printed, the first word and the word SAME is 
printed and printing is suspended until the contents 
of main storage changes. (See Figure 19 part 1). If 
any line to be printed is identical to the last line 
previously printed and the words of that line are 
different from each other, than printing is suspended 
until the contents of the line changes. 




Locate, format and print the following DOS 
supervisor table: 

O Background Communications Region 

• If a BJF system the F2 and Fl Communica- 
tions region 

• The Communication Region(s) extention(s) 

• Program Information Block (PIB) 

• Parti tion(s) save area 

• Logical Unit Block Table (LUB) 

• Physical Unit Block Table (PUB) 
t Error Recovery Block 

Channel Queue Table 

• If applicable, the floating point registers 



f EOJ Wait J 
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Chart FA. DUMPGEN (IJBDMPGN) , Generator (Part 1 of 
Refer to Chart 6. 



2) 



FB-Dl,J2iE2 



•Al»»»*»* 
DUMPGEN 



POINT TO 1ST 

COL OF READIN 

AREA 



ALLIN 
YES .« 



»»*»C1»**«***» 

RELOCATE 

RESOLVE 

ADDRESSES 

FOR BASE REG 



RESOLVE 

ADDRESSES 

FOR 

CCWS 



OPENR 

SYSIN AND 

SYSPCH 



»»»*E2*«*"*»*« 

INITIALIZE 

FOR MESSAGE 

4C42A INVALID 

CONTROL CARD 



B5 *. 

,» OPTN « 

CORE OR 

LOADADDR 

SPEC. 



##*»C5*»»»*»*» 

INITIALIZE 

MSG. «4C45A 

CORE OR 

LOADADDR NOT 

SPECIFIED 



RELOCATE 

ADDRESSES FOR 

CORE DUMP 



DEVASSGN .*. 

E5 ». 
.♦TAPEIPL*. 
YES .*AND SYSPCH «. 
....*. NOT A 

». TAPE .» 



*#»«»F1»*»«»*«««* 

* * COMREG « * 

* * • * 


YES .»* 


X 

Gl* *». 

SYSLOG *#. 
A 1052 .* 



.•OPERAND*. 

SPECIFIED 

A VALID 

. OPERAND . 



INITIALIZE 

FOR MESSAGE 

4C43A INVALID 

OPERATION 



• 


SET 


NO 




1052 




INDICATOR 


* 




* X 






X 


LOAOINP .*. 




Jl ». 






NO .* 


SYSIPT A 




READER 




. 






X 


*. .* 




• YES 


* 




C2 * 







H3 ♦. 




» VALID •. 




OPERAND ♦. 


AND DATA 




SAVED .♦ 






«. . • 


X 








♦ FB 




♦ CI 


X 








* » 


ERR 


• C2 * 


ERR5 


» * 


ERR5 



INITIALIZE 
MSG. »4C46A 
SYSPCH NOT 
ASSIGNED TO 
TAPE* 



• Cl« 
ERR 



»H4 
ALL OPERANDS ARE VERIFIED 
AND PERTINENT DATA FOR 
OUTPUT DECK IS SAVED. 

WHEN LOADADDR IS CHECKED 
MESSAGE '4C40A INVALID 
HEX LOADADDR SPECIFICATION* 
OR '4C41A INVALID DECIMAL 
LOADADDR SPECIFICATION* 
IS ISSUED IF THE 
SPECIFICATION IS IN ERROR. 

IF OPTN FORMAT=YES IS 
SPECIFIED, THEN THE FETCH 
OF DUMPGEN1 IS INITIALIZED. 
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Chart FB. DUMPGEN (IJBDMPGN) f Generator (Part 2 of 2) 
Refer to Chart 06. 



POINTS TO SYSLOG 
READ IN AREA, INDICATES 
MESSAGE LENGTH 
INITIALIZES MESSAGE 
•4C44A' INVALID OPERAND. 



ERR 

ERR5 

ERR5A X 

#*«»«C1****«*«*« 
♦INITIALIZE FOR 

* ERROR MESSAGE 
» AND UPDATE 

* LOG CCW 

* *Al 



YES 


.« 


INPUT 




«, 








CARD 








• 


*. 


BLANK 


# 


.♦ 




X 












*»«*• 




♦ NO 








*FA * 












* C2* 




































READ1 




X 
El****. 












IS 






YES 






SYSLOG 






*..X 




*. 


A 1052 




.* 





INITIALIZE 

LOG MESSAGE 

FOR A PRINTER 



»G1*«*»*» 

SVC 

PRINT 

ERROR 

MESSAGE 



SVC 7 

WAIT FOR I/O 

COMPLETE 



»*#»B4» »»**»»♦» 

LOAD DUMPGEN1 

OVERLAY 

CORE DUMP 

WITH DUMPCORE 



RELOCATE 

ADDRESSES FOR 

DUMPCORE 



PUNCHRT 

* PUNCH DESIRED 

♦ (DECKS=) NO. 

* OF DUMP 

♦ PROGRAMS 



RESTORE 

»»»**F2***»**»* 

♦ REINITIALIZE 

* SYSLOG FOR 

♦ OPERATOR 

* RESPONSE 



DOES 
OPERATOR 
.'CANCEL' 



SVC 14 

EOJ 



NO 
X... 



*K1»**»* 

SVC 6 

CANCEL 



SYSLOG 

•IGNORE' 

.RESPONSE 
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Chart FC. DUMPGEN (IJBDMPGN) , COREDUMP (Part 1 of 2) 
Refer to Chart 06. 



••••AL*»*»*«»* 

COREDUMP *A2 



*A2 
COREDUMP IS 
A STAND-ALONE 
DUMP OBJECT 
DECK PRODUCED 
BY DUMPGEN. 



**»B1*»*»*»« 
SAVE REGS, 
INITIALIZE 

REGS AND 

GET READER 

ADDRESS 



«*»»C1»»*»»**» 
GET ADDRESS 
OF PRINTER 

CCWS AND 
INITIALIZE 
FOR 'INTR' 



TESTI01 

TIO 
* SYSRDR AND 
CLEAR 
» PENDING 
INTERRUPTS 



PUT STORED 

REGISTERS 

INTO OUTPUT 

AREA 



»«»C2****»»* 

SAVE REGS 

CSW AND 

CAWt-CLEAR 

BYTES 0-24 



»»D2**»»«*« 

POINT 

PRECON TO 

REGISTER 

SAVE AREA 



CHANGE 
PRINT 
CCWS 



MAKE DATA 
PRINTABLE 
AND PRINT 



POINT R5 
LOCATION 
ZERO FOR 
START ADDRESS 
OF DUMP 



B4 *. 

.»" END **. YES 
». OF ...... 






». PAGE .* 






'•NO 






X 

**»#*C4***«*****» 


EXODUS 

»«C5» 


< 


• DECREMENT • 

• LINE COUNT * 

• BY ONE • 


• CHANGE 
• PRINT 

♦ CCWS 



**#«D4» •♦•»*♦• 

COMPARE NEXT 

LINE TO BE 

PRINTED TO 

LINE POINTED 

TO BY REG 5 



DISABLE 

FOR NO 

INTERRUPTS 



• SAVE PSWS AND 
•INITIALIZE NEW 
» PSWS 



.« INTR * 
-SPECIFIED IN 
*. DUMPGEN .* 



*#»*G1*»»«*»»«» 

WAIT FOR 

I/O INTERRUPT 



»*««E2**»*»»*«» 

INITIALIZE 

LINE COUNTER, 

THIS VALUE IS 

DETERMINED 

BY DUMPGEN 



MAKE DATA 
PRINTABLE 
AND PRINT 



POINT 
PRECON TO 
REMAINING 
REGISTERS 



*«»E3#*«*«** 

INITIALIZE 

PROG. PSW 

COUNTER 



MOVE NEXT 

LINE TO PRINT 

AREA AND 

INCREMENT 

REG 5 BY 32 



ST0RE5 

*»»**F3»**»*»»** 

♦ SAVE ADR 

♦ IN REGISTER 5 

♦ AND MAKE IT 

♦ PRINTABLE 



*«««H1***«**«* 

INITIALIZE 

PRINTER 

ROUTINES AND 

RESTORE 

PSWS 



G3 ». 
















.» EOJSW 




«. 


YES 


►. ON 






























X 


♦ NO 






• FD* 

• B3 

SYSTI 


X 








**#«H3»***< 


***» 




PRECON 




FD 





*»»G5*«»«»** 

EOJ-LPSW 

AND ENTER 

WAIT STATE 



MAKE DATA 
PRINTABLE 
AND PRINT 



**»J2******** 

POINT 

PRECON TO 

CSW AND CAW 

SAVE AREA 



PROG 

PSW CNTR 





«»K4«»»»»«» 

ESTABLISH 

LINKAGE 

FOR 

EOJ 



*K5 
MAKE THE 32 BYTES 
POINTED TO BY REG 
PRINTABLE AND 
PRINT. 



DUMPGEN 91 



Chart FD. DUMPGEN (IJBDMPGN) , COREDUMP (Part 2 of 2) 
Refer to Chart 06. 



#«*#A1**«** 
PRECON 



PRECON 

•* INITIALIZE 

* REGISTERS TO 

* THE ADDRESS 
« OF WORKAREA 
•AND WORD COUNT 



TURN 

BYPASS 

SWITCH OFF 



SAVPRINT 

*»*«*C2********* 
* SAVE WORDS 
» FROM PRINT 
» LINE-SPLIT 
« WORDS ON PAGE 



»*#»A3*««***»*» 
» SYSTIO 




X 


..**FC 


ISYSTIO X 

. ***«B3*«**«***» 


. * 


TIO 
TO PRINTER 


'. NO 
.X..*. 


X 

C3***». 

** PRINTER *♦. 
AVAILABLE . 



*D2 
TRANSLATE ANY CHARACTERS 
THAT ARE PRINTABLE TO P 
READABLE FORMAT. SCAN 
LINE TO BYPASS PRINT LINE 
IF ALL WORDS ARE EQUAL. 



SIO 
PRINT 
LINE 



Fl *. 

.» THIS ». 
« LINE = « 

TO PREVIOUS 
*. LINE .« 



MOVEOUT 
»*#**G1 
» MOVE 



SAME' 

TO PRINT 
AREA AND 

CHANGE 
PRINT CCW 



CHANGE 

PRINTER 

CCWS 



TURN 

BYPASS 

SWITCH ON 



•»*»H2*****»*»* 


**«*H3»***«*»»* 


RETURN TO * 


* RETURN TO 


CALLING » 


* CALLING 


ROUTINE * 


* ROUTINE 
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Chart FE. DUMPGEN1 (IJBDMPGN) , DUMPCORE: 
Refer to Chart 06 • 



Low Core and Translating Dump of Main storage 



»»»*A1**»*«*»*» 
DUMPCORE * 



*«#»A4****+**« 
* CONVERT 



»A5 
MAKE DATA PRINTABLE 
AND TRANSLATE ANY 
CHARACTERS THAT ARE 
PRINTABLE TO A 
READABLE FORMAT. 



#»»»»B1»***»*»»»* 

* SAVE REGS, * 

* READER ADDR * 

* AND ALL PSWS. * 
•POINT EXTERNAL * 
•PSW TO LODPRTNA* 



CLEAR 

PENDING 

INTERRUPTS 



CONVERTA X 

»»*»»B2*»»*»»»* 
» FORMAT 

* LOW CORE 
•(PSWS, CAW, CSW, 

♦ AND TIMER) 



PRINT 

LOW 
CORE 



COMPARE NEXT 

LINE TO 
PREVIOUS LINE 



•B5««*« 
READ 



MOVE NEXT 

LINE TO PRINT 

AREA 



X 
H5 



WAIT FOR 

INTERRUPT 

OF PRINTER 



**»*E2»*» »»*»#» 
INITIALIZE 

TO DO A 

TRANSLATING 

DUMP STARTING 

AT LOC 



.X. 



LODPRNTA X 

•*.*.FL«. »••••• 

• INITIALIZE 
» I/O COMMANDS 

• FOR 

» PRINTER 



•••*F2* 

SAVE ADDRESS 

IN REG 5 AND 

MAKE IT 

PRINTABLE 



.» LINES AT 
. COMPARE1 
». EQUAL 



»#F3»*«***» 

* CHANGE * 

PRINT CCW 

AND TURN ON 

EOJSWL 



.» ALL ». 

.» WORDS • 
.IN THIS LINE 
•. EQUAL .» 



D4 ». 
.» THIS ». 
LINE 
EQUAL TO 
.PREVIOUS . 
•.LINE .» 



• YES 



BYPASS 

SW ISWCC) 

ON 



RETURN 



»«C5»*»»»«» 

• CHANGE 

READ CCW 

AND SET UP 

CAW 



* 


READ 
ONE CARD 


NO 


X 

E5**'». 

.♦* ENTIRE *» 
.OVERLAY READ 
*. IN .» 



•»«F5»«*«* 

RETURN 



MOVESAME X 

* MOVE 'SAME* 

* TO PRINT AREA 

* AND CHANGE 

* PRINT CCW 



103 X 


X 


TI01 X 


X 


••••HI*********** 


••♦»»H2********** 


*»#**H3**«»*«»»*« 


»*H4»*»»**» 




•CONVRT FE» 


# * 


» TURN 


* PRINT * 




* PRINT * 


* ON BYPASS 


CONTENTS OF 


• MAKE LINE « 


* LAST « 


* SWITCH 


* REGS * 


» PRINTABLE AND » 


* LINE * 


* (SWCC) 




» PRINT IT » 


*»*•»•*»*»*••*»** 


*•»*«»*•••*• 



» TURN OFF » 

BYPASS SWITCH 
» (SWCC) » 



READIN 

NEXT 
OVERLAY 



»»»»J4» #»»»«*« 

SAVE WORDS 

FROM PRINT 

LINE - SPLIT 

WORDS ON 

PAGE 



K2 



END OF PAGE 
*. . * 

*»N0 
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Chart FF. DUMPGEN1 (IJBDMPGN), DUMPCORE: 
Refer to Chart 06. 



Format Supervisor Tables 



»A2 
SCAN BYTES X'0100'- 
X'OAOO' FOR THE BG 
COMREG. BY LOCATING 
THE / / OF THE 
DATE FIELD. 



FIND 

BG 
COMRG 



FOUND I T4 X 
»«»*D1*»* 
READ 



«»#D2«****»* 

PRINT NOT 

FOUND MSG. 

AND PASS 

REMAINING 

CARDS 



LUBCHCK X 

**«*»B3**»***»*« 
•LOCATE, FORMAT, 
« AND PRINT 

* THE LUB 

* TABLES 



PUBCHCK 

«»*«*C3*»**»»**» 
♦LOCATE, FORMAT, 

* AND PRINT 
» THE PUB 

* TABLE 



♦LOCATE, FORMAT, 
« AND PRINT THE 
•ERROR RECOVERY 
•BLOCK AND EACH 
• QUEUE ENTRY 



El *. 

• BJF 
SUPVR 
BEING 
DUMPED 



»E2»*«» 
HARD 
WAIT 



SIMPLE X 

• INITIALIZE 

• HEADING 

• FOR BG 
» ONLY 



***#G1«**»»**«» 

LOCATE AND 

SAVE THE 

ADDRESSES 

OF COMRGS 

FOR F2 AND Fl 



INITIALIZE 

HEADINGS 

FOR BG, 

F2, AND Fl 



FORMAT AND 
PRINT THE 
COMRG(S) 



FORMAT AND 
PRINT THE 
PIB TABLE 



IF THE PART. 

IS ACTIVE, 

FORMAT AND 

PRINT ITS 

SAVE AREA 



CQCHCK 

#*»«»E3*»«»***»« 
•LOCATE, FORMAT, 

• AND PRINT 

• THE CHANNEL 

• QUEUE TABLE 



FPCHCK .*. 

F3 ». 

.FLOATING*. 
NO .* POINT • 
...•.SPECIFIED IN 
». SUPVR .» 



*«*»G3**»***«* 

FORMAT 

AND PRINT 

THE FLOATING 

REGS. 




»J3»»»* 
EOJ 
WAIT 



NOTE — SEE FIGURE 19 
FOR A SAMPLE OUTPUT 
OF DUMPCORE. 
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LSERV (Label Cylinder Display) 



The label cylinder display program, LSERV, 
displays the contents of the SYSRES label 
cylinder. The label cylinder contains the 
TLBL and the DLBL and EXTENT information 
for the logical units. 



Note: 



Secured data files are not 



processed. 

LSERV may be executed in any partition 
with a minimum of 10,240 bytes of main 
storage by the command: 



It requires no other control statements 
for its operation other than the normal job 
step or job termination controls, /* or /£. 
See Figure 20 for a sample output from 
LSERV. 



LSERV assumes the label cylinder on 
SYSRES is formatted as it is described in 
the publication, DOS DASD Label s , 
GC24-5072. 



// EXEC LSERV 
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DOS LABEL CYLINDER DISPLAY 




SYSRES VOLUME SERIAL NUMBER - 111111 




BG USER LABELS (TEMPORARY) TRACK 




NONE 




BG PARTITION STANDARD LABELS (PERMANENT) TRACK 1 




NONE 




F2 USER LABELS (TEMPORARY) TRACK 2 




NONE 




F2 PARTITION STANDARD LABELS (PERMANENT) TRACK 3 




NONE 




Fl USER LABELS (TEMPORARY) TRACK 4 




NONE 




Fl PARTITION STANDARD LABELS (PERMANENT) TRACK 5 




NONE 




STANDARD LABELS (ALL PARTITIONS-PERMANENT) TRACKS 6-9 FOR 2311 OR 6-19 FOR 2314 




IJSYSSL 


"T " " 


FILE IDENTIFIER PRIVATE SOURCE STATEMENT LIBRARY 




FILE SERIAL NUMBER 111111 




VOLUME SEQUENCE NUMBER 01 




CREATION DATE OMITTED 




EXPIRATION DATE 99/365 




FILE TYPE SEQUENTIAL 




EXTENT INFORMATION 




EXTENT SEQUENCE NUMBER 00 




EXTENT TYPE 1 (PRIME DATA) 




EXTENT LOWER LIMIT CYLINDER 106 




HEAD 00 




EXTENT UPPER LIMIT CYLINDER 198 




HEAD 09 




SYMBOLIC UNIT SYSSLB CCB FORMAT 0007 




VOLUME SERIAL NUMBER 111111 




IJSYSLN 




FILE IDENTIFIER GOFILE 




FILE SERIAL NUMBER 111111 




VOLUME SEQUENCE NUMBER 01 




CREATION DATE 67/033 




EXPIRATION DATE 99/365 




FILE TYPE SEQUENTIAL 




EXTENT INFORMATION 




EXTENT SEQUENCE NUMBER 00 




EXTENT TYPE 1 (PRIME DATA) 




EXTENT LOWER LIMIT CYLINDER 001 




HEAD 00 




EXTENT UPPER LIMIT CYLINDER 020 




HEAD 09 




SYMBOLIC UNIT SYSLNK CCB FORMAT 0005 




VOLUME SERIAL NUMBER 111111 


===^===^^ 


EXTENT TYPE 1 (PRIME DATA) 


EXTENT LOWER LIMIT CYLINDER 196 




HEAD 00 




EXTENT UPPER LIMIT CYLINDER 198 




HEAD 09 




SYMBOLIC UNIT SYSREC CCB FORMAT OOOA 




VOLUME SERIAL NUMBER 111111 




END OF LABEL CYLINDER DISPLAY 





Figure 20. Sample Output from LSERV 
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Chart FL. LSERV (IJBLSERV) Format and Print Contents of the Label Information Cylinder 



LSERV 
(IJBLSERV) 



INITIALIZE 

AND RELOCATE 

LSERV 



FORMAT AND 

PRINT TAPE 

LABEL 



ISDAEXTS 

* INITIALIZE 

* IS AND DA 

• EXTENT INFO 

• FOR FORMAT 
» AND PRINT 



SEQDISKE 

»«*«»C5«»*«»«* 
» INITIALIZE 

* SEQ. DISK 

* EXTENT INFO. 
» FOR FORMAT 

* AND PRINT 



COMRG 

GET PAGE 

SIZE 



GET VOLUME 

ID 
FROM SYSRES 



FORMAT 
VOL-ID AND 
FIND LABEL 
INFORMATION 
CYLINDER 



••••Gl********* 
PRINT HEADINGS 
» AND VOL-ID 



NO . 


* DATA « 








SECURED 




' 




•. LABEL .* 




X 










* # 




► YES 




B4 


* 












> 








C 
























POINT TO 






» 


NEXT RECORD 


» 












*, 






* 



•»»D4»*+*»«*» 

FORMAT AND 

PRINT DISK 

DLBL AND 

EXTENT(S) 

INFORMATION 



EOFTES1 






G2 *. 




• EOF 




IN 




STANDARD 


*. 


LABEL 



DATARD1 

»*»*H1»»****** 

READ 

» 1 RECORD 

FROM LAB 

« INFORMATION 

CYLINDER 



Jl «. 

EOF 



NOTE— SEE FIGURE 20 
FOR A SAMPLE OF THE 
OUTPUT FROM LSERV. 



X 

* B2 * 



X 

EOJ 



LSERV 97 



98 DOS System Service Programs 



ESTV (Error Statistics by Tape Volume) 



When DOS is generated, the user has the 
option of requesting the collection of 
error statistics by tape volume (ESTV). 
This ESTV data can be printed on the system 
console, or stored on a direct access 
storage device. If it is stored, dump file 
program ESTVUT must be used to process the 
data from the disk. 



ESTV RECORDS 



ESTV collects data on tape errors by volume 
for any tape volumes used by the system. 
Although DOS itself does not require it, 
the ESTV program requires that each user 
program contain an OPEN(R) statement if he 
wishes to collect volume statistics. 

Specifying ESTV at system generation 
time causes the system to collect the 
following set of records for each tape 
volume whenever the volume is in use: 

• Volume serial number of standard labeled 
volumes (blank for nonstandard and 
unlabeled volumes). 



cleaner blade) taken while trying to 
correct read errors. 

Number of START I/Os issued to the tape 
(does not include SIOs issued for or 
during error recovery) . 

Bit density of the volume (in bits per 
inch for 7- track tape, and the 
designation 8/1600 for 9-track tape). 

Block length of each record if the 
volume has fixed-length blocked records. 
When the type of record is undefined or 
variable length, or when the program 
terminates abnormally (ABEND) , a 
appears in the space allocated for block 
length. A also appears when physical 
IOCS is being used. 

Note 1 : The temporary error counter is 
incremented whenever a data check error 
is detected. If the error is permanent, 
the permanent error counter is 
incremented. However, the temporary 
error counter is not decremented by 
permanent errors, and therefore contains 
the sum of true temporary errors and of 
permanent errors. 



• Date this set of records was collected. 

• Time of day this volume was closed (time 
the record was collected) . 



Note 2 : The cleaner action counter is 
not incremented during read-opposite 
recovery. 



Address of the unit on which the volume 
was mounted and the channel to which the 
unit was attached. 



ESTV OUTPUT MODES 



• Number of temporary read errors that 
occurred while the volume was open. 

• Number of temporary write errors that 
occurred while the volume was open. 

• Number of permanent read errors that 
occurred while the volume was open. 

• Number of permanent write errors that 
occurred while the volume was open. 

• Number of noise blocks encountered 
(records less than 12 bytes on a read 
operation, or less than 18 bytes on a 
write operation) . 

• Number of erase gaps (three and 
one-half-inch lengths of erased tape) 
encountered . 

• Number of cleaner actions (passing the 
record in error back and forth under a 



Two modes of operation for ESTV are 
available. Mode 1 and Mode 2. They provide 
two different standard output formats. The 
user selects the desired mode (at the time 
the system is generated) in the FOPT system 
generation macro. The mode selected 
determines the method in which the 
collected statistics will be written. 



Mode 1 ; Mode 1 formats the ESTV records 
and records them on a system direct access 
storage device in a data set named ESTVFLE. 
ESTVFLE may later be dumped to a tape or 
printed on the printer attached to the 
system by the system service program 
ESTVUT. 

Mode 2 ; Mode 2 prints the ESTV data 
collected at the console typewriter 
(SYSLOG) each time a particular volume is 
ended by CLOSE, EOJ, EOV, or ABEND. 
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ESTV DUMP FILE PROGRAM (ESTVUT) 



ESTVUT gives the user five options to 
process the error statistics collected and 
stored on disk by the ESTV program. The 
system operator specifies the processing 
method at the start of execution of the 
ESTVUT program. To do this f he responds to 
messages sent to him by the program. The 
five options . are: 



5. 



ESTVUT dumps the collective tape file 
resulting from option 3 back to the 
original tape. This allows the user 
to keep his error volume statistics 
on a particular tape volume rather 
than on a new tape each time the file 
is dumped. 

ESTVUT dumps the tape file that 
results from either option 3 or 4 to 
a printer. 



ESTVUT dumps the data from the disk 
file to a printer and clears the disk 
file. 



ESTV FORMAT DATA SET PROGRAM (ESTVFMT) 



ESTVUT dumps the data from the disk 
file to a printer and leaves the disk 
file as it was. More records can be 
added to the disk and a later dump 
taken of the entire file, including 
the added records. 

ESTVUT dumps the file to a magnetic 
tape and clears the file. This 
option includes dumping any 
statistics from a previous tape 
(obtained by this processing method) 
and then dumping the new data from 
the disk file to the new tape. This 
collects all error statistics on one 
tape. 



System service program, ESTVFMT, must be 
the first program executed after the first 
initial program load (IPL) after the system 
is generated, if error statistics by tape 
volume are to be collected by the system on 
a disk. It must also be executed whenever 
new label information is entered into the 
system for the file. This is required in 
order to update information in the volume 
table of contents (VTOC) . This program, 
ESTVFMT, opens the ESTV data set (ESTVFLE) 
on the disk file, enabling it to collect 
this system output, by putting the label 
information in the disk*s volume table of 
contents. The data set must be on SYSREC. 
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Chart 07. Logic Flow of ESTV File Format and Dump Phases 
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Dumps records directly 
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and/or disk file. 
Converts disk file records 
to tape format. 
Checks user header 
labels to determine if 
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DOS ESTV File Dump 
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• Dumps ESTV files. 
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• Interprets operator re- 
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NO 




YES 
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DOS ESTV File Dump 
Phase 2 Charts GE ■ 



GF 



Loaded by ESTVUT when 
output is to a printer. 
Converts and formats 
records from disk or tape 
for output. 

Prints document contain- 
ing ESTV statistics. 
Returns to ESTVUT: 
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Chart GA. ESTVFMT - DOS ESTV File Format Program 
Refer to Chart 07. 
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Chart GB. ESTVUT - Phase 1 of DOS ESTV File Dump 
Refer to Chart 07, 
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Chart GC. ESTVMT - Phase 3 of DOS ESTV File Dump (Part 1 of 2) 
Refer to Chart 07. 
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Chart GD. ESTVMT - Phase 3 of DOS ESTV File Dump (Part 2 of 2) 
Refer to Chart 07. 
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Chart GE. ESTVPR - Phase 2 of DOS ESTV File Dump (Part 1 of 2) 
Refer to Chart 07. 
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Chart GF. ESTVPR - Phase 2 of DOS ESTV File Dump (Part 2 of 2) 
Refer to Chart 07, 
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EREP (Environmental Recording, Editing, and Printing) 



The EREP (Environmental Recording, Editing, 
and Printing) programs edit, print, and 
maintain system environmental data stored 
on a Recorder File (SYSREC). The following 
records are stored on the Recorder File. 



0BR (Outboard Recorder) records 
contain information on I/O errors not 
correctable by standard programmed 
error recovery. 



2. SDR (Statistical Data Recorder) 
records contain cumulative error 
status of each I/O device on the 
system. 

3. MCRR (Machine Check Recording and 
Recovery) records contain pertinent 
system control data about System/ 360 
machine check and channel inboard 
errors . 

4. RMS (Recovery Management Support) 
records contain error statistics about 
System/ 370 machine check and channel 
check (MCAR/CCH) errors. 

5. IBM 2715 Errors 

6. RDE (Reliability Data Extractor) 
information includes IPL and EOD (End 
Of Day) records for System/370. 

OBR and SDR are initiated by specifying 
the I/O Error Log (ERRLOG) option. I/O 
Error Log is specified as a keyword operand 
in the SUPVR macro at system generation 
time. The MCRR option is also specified as 
a keyword operand in the SUPVR macro at 
system generation time. MCRR is used only 
with IBM System/360 models 30, 40, and 50. 
There are two MCRR record formats: 

• Machine Check Interruptions 

• Channel Inboard Errors. 

RMS records apply only to System/370 and 
are similar to MCRR function for 
System/360. RMS builds records on SYSREC 
for EREP through two operations: 

• MCAR (Machine Check Analysis and 
Recording) 

• CCH (Channel Check Handler) . 

Recording on the Recorder File is 
suppressed while the EREP function is 
executing. 



The EREP function is run as a problem 
program and is executed using standard job 
control language. This program is executed 
by the user or service representative 
whenever there is a need for environmental 
data. However, the operator may execute 
the EREP program when information recorded 
on the Recorder File is subject to loss. 
The operator is informed of this potential 
loss by an informational message, such as: 

0T00I LAST TRACK ON RECORDER FILE or 
0T01I CUU SDR RECORD OVERFLOWED or 
1I93I RECORDER FILE IS xxx% FULL. 
[RUN EREP. 3 

You can execute EREP from card input or 
from the console typewriter (SYSLOG) . 
After you enter // EXEC EREP, an operator 
message invites card or console responses. 
EREP then processes your options through 
the selected card or console method. See 
Figure 22, which summarizes valid option 
combinations . 

EREP edits and displays records from the 
Recorder File in the following order. 

1. Statistical Data Recording (SDR) 

2. Outboard Recording (OBR) 

3. Channel Inboard Error Records (MCRR) 
on System/360, or Channel Check 
Handler (CCH) on System/370 

4. Machine Check Records (MCRR) on 
System/360, or Machine Check Analysis 
and Recording (MCAR) on System/370 

5. Reliability Data Extractor (RDE) 

6. IBM 2715 Error Records. 

IBM 2715 records are printed in this 
order : 

Disk adapter errors 
2790 adapter errors 
MPX adapter errors 
2740 adapter errors 
BSC adapter errors 
Special code 70-75 errors 
Area station errors 

Recording on the Recorder File is 
suppressed when the EREP program is 
executed. SDR counters are reset after 
each record is processed. EREP prints 
records in the OBR and MCRR portions on the 
Recorder File on a first-in first-out basis 
beginning with the earliest real-time 
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entry; however , the OBR records are grouped 
by channel and unit. All information in 
the file is printed.. The OBR, MCRR, MCAR, 
and 2715 portions of the Recorder File are 
reset by EREP only if CLEAR or HIST options 
are exercised. 



RECORDER FILE 



When OBR/SDR, MCAR/CCH, MCRR, or 2715 EREP 
records are desired, a Recorder File must 
be created. This file is assigned as 
SYSREC and must be an IBM 2311 or 2314 
Direct Access Storage Device, or 
equivalent. The Recorder File is a data 
set that is defined by file definition 
statements kept on the standard labels 
section of the label cylinder of SYSRES. 
The Recorder File requires a minimum of two 
tracks of disk storage. 

The Recorder File must be created 
immediately following IPL. Once created, 
the file is opened and updated without 
further assignment and definition. When 
the system is closed down, the operator 
must issue the Record on Demand (ROD) 
command to assure that statistical data in 
core storage is recorded on the Recorder 
File. 

Information in the Recorder File can be 
eliminated by rebuilding the Recorder File. 
This is done using the job control SET 
command with the RF=CREATE operand. Or, 
you may execute the CLEAR opton in the EREP 
program. 



EREP PHASES 



Four major phases make up the EREP 
function: 

• EREP - handles options and fetches the 
appropriate phase. 

• EREPEDIT - performs edit and print 
operations. 

I« EREPHIST - creates and updates output 
tape files (history and RDE) . 

• EREPCLR - CLEARS SYSREC of records. 

The EREP function requires a minimum of 10 K 
for operation (Figure 21) . 

EREP, Option Handler Phase : EREP is called 
into storage when // EXEC EREP is read. It 
functions as a control phase. This phase 
has three major functions: 



1. read and diagnose option statements, 

2. queue valid options and indicate the 
parameters entered with them by posting 
appropriate bits in a parameter switch 
in the EREP communications region, and 

3. dequeue options from the queue and 
fetch the proper phase to process it. 

The option handler suppresses all 
recording on the Recorder File while EREP 
is executing. It accepts option input from 
either SYSIPT or SYSLOG. The EREP phase 
issues messages about option handling, 
status of operations, and error conditions. 

EREP queues options in the EREP 
communications region along with parameter 
settings when specified. Each option is 
dequeued sequentially. 

EREP fetches the proper phase to perform 
the option. When the option is completed, 
the phase fetches EREP, which dequeues the 
following option and fetches its phase. 
This procedure continues until the option 
queue is empty. EREP frees the Recorder 
File to record more errors and goes to EOJ. 

EREPEDIT, Edit and Print Phase : Option 
EDIT (or the default effect of no option) 
selects EREPEDIT phase. The phase edits 
and prints all data sets from the Recorder 
File. It handles all SYSREC entries until 
no further valid entries are encountered. 
If the first eighty bytes of a record are 
absent, the entire data set is ignored. 
EREPEDIT prints on SYSLST. 

EREPEDIT occupies an area 6K+44 8 bytes 
of storage. It fetches, into an 
approximately 4K area, successive phases to 
help process various types of records 
(Figure 21) . 

EREPHIST, History File Processor : Option 
HIST invokes this phase and updates a 
history tape file. It reads SYSREC files. 
EREPHIST creates new history tape files 
from the parameter NEW. If ,2 is specified 
with HIST, NEW or HIST, a second tape 
(identical to the first) is processed. The 
second tape is used for RDE data. OPTION 
UPNEW causes a tape (history or RDE) to be 
updated and then a new tape is created. 
This phase converts records on the 
OBR/MCAR/CCH portion of SYSREC to 
variable- length record format, and writes 
them on tape. 

EREPCLR, Clear Recorder File Records Phase : 
Option CLEAR removes all records from 
SYSREC. It automatically executes after 
the HIST option. If it is the only option 
specified, the edit and print function is 
forced on before the clear function 
destroys the SYSREC file. 
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EREPCI30 
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EREPMC55 
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EREPCI40 

EREPMC40 

EREPCI50 
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ERE PC 145 
• EREPMC45 
EREPLOG6 
EREPLOG7 
EREPLOG8 
EREPLOG9 
EREPSEL 



Each of these phases either uses root phase EREPEDIT routines, or is used by the root phase. Phases 
listed that are not included in the detail flowcharts section (for example, EREPSDR) are tables or 
lists used by the root phase. 

Note 2: The extended table area in EREPEDIT, is used by the EREP2715 summary phase (see chart 18) 
to increase the maximum number of records provided for area station/device combinations (from 60 in 
a 10K partition to 100 in a 12K or greater partition). 

Figure 21 • EREP Main Storage Map 
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HIST,UPNEW 



1. Updates a history [or RDE] file 
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3. Edits and prints file 

4. Clears file 



Figure 22. EREP Option Summary 
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Figure 23- EREPEDIT List Processing 
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00000 


RECORD ENTRY 


TYPE 


- STATISTICAL DATA 






INTRVN REQD 


00076 BUS OUT CHK 


00007 














EQUIP CHK 


00890 UNUSUAL COMND SEQ 00000 


CHANNEL/UNIT ADDRESS 
TEMPY RDS 


0290 
00000 


DEVICE TYPE 
TEMPY WRT 


2311 


SWITCHABLE 
00005 








s 












BUS OUT CHK 










EQUIP CHK 




00034 


OVERRUN 




00076 








TRK CND 




00004 


SEEK CHK 




00600 


RECORD ENTRY TYPE 


- STATISTICAL DATA 




UNSAFE 




00001 














SER/DESER 




00000 


CHAN TAG LINE 


00072 


CHANNEL/UNIT ADDRESS 


0191 DEVICE TYPE 


2495 


ALU 




00000 














MISG ADR MKR 




00000 








TEMPY RDS 
INTRVN REQD 
POSITION CHECK 


00000 TEMPY WRT 

00001 BUS OUT CHK 
00000 


00001 
00000 


II 
























RECORD ENTRY 


TYPE 


- STATISTICAL DATA 













CHANNEL/UNIT ADDRESS 


0180 


DEVICE TYPE 


2400T7 SWITCHABLE 


RECORD ENTRY TYPE 


- STATISTICAL DATA 




TEMPY RDS 




00007 


TEMPY WRT 




00069 


CHANNEL/UNIT ADDRESS 


0190 DEVICE TYPE 


2701 


INTRVN REQD 




00004 


BUS OUT CHK 




00098 








EQUIP CHK 




00004 


OVERRUN 




00001 


TRANSMISSIONS 


00001 UNIT EXCP 


00000 


WD CT 




00029 


DATA CONV CHK 


00004 


TIME OUTR 


00007 TIME OUTD 


00000 


R/W VRC 




00250 


LRCR 




00132 


INTV. REQD 


00000 OVERRUN 


00000 


SKEW 




00182 


CRC 




00081 


BUS OUT CKW 


00000 BUS OUT CHK 


00000 


SKEW REG VRC 




00129 


NOISE 




00069 


DATA CHKW 
DATA CHKP 


00001 DATA CHKR 
00000 


00000 







A - UNIVSDR - List used for all SDR records. Sets up record headings, 

channel /unit and device types. 
B - RETURNU - List which sets up sense counter information applicable 

to most devices 



1 - UNTRCD List 
2-UNSPDEVList 

3 - DASDLST 

4 - TAPELST 



5 - MICRLST 

6 - CONSOLE List 

7 - RDPCH List 

8 - CARTAP List 
9-TPLIST 



Figure 24. SDR Records Formatted by EREPSDR Lists 



EREP 113 



-- OUTBOARD EDITING 



PROGRAM IDENTITY - EXEC 



CHANNEL/UNIT ADDRESS 0190 
LOGICAL UNIT - SYS009 



DAY YEAR HH MM SS 

DATE - 354 68 TIME - 10 05 17 
DEVICE TYPE 2311 

DASD ADDRESS - BB= 0000 CC= 00BE HH= 0000 



FIRST CCW 
FAILING CCW 



CC DA 
07 0030F6 
12 003150 



FL CT 
40 00 0006 
00 00 0008 



CSW 



K CA 
00 003130 



US CS CT 
OE 40 0008 



UNIT STATUS 

ATTENTION CHANNEL END 1 

STATUS MODIFIER DEVICE END . 1 

CONTROL UNIT END UNIT CHECK 1 

BUSY UNIT EXCEPTION 



CHANNEL STATUS 



PRGM-CTLD IRPT 

INCORRECT LENGTH 1 

PROGRAM CHECK 

PROTECTION CHECK 



CHAN DATA CHECK 
CHAN CTL CHECK 
I/F CTL CHECK 
CHAINING CHECK- 



SENSE BYTE DATA 

BYTE BYTE 1 BYTE 2 BYTE 3 BYTE 4. BYTE 5 
00000100 00000000 00000000 110010 00000000 00000000 



PROGRAM IDENTITY 



TAPE 



DAY 
DATE - 007 



YEAR 
69 



TIME 



HH MM SS 
14 31 14 



CHANNEL/UNIT ADDRESS 0285 
LOGICAL UNIT - SYS005 
VOLUME I.D. - 



DEVICE TYPE 
MODE CO 



2400T9 



CC DA 
FIRST CCW 02 003BFE 
FAILING CCW 02 003BFE 

UNIT 

ATTENTION 
STATUS MODIFIER 
CONTROL UNIT END 
BUSY 



FL CT 
00 00 0050 
00 00 0050 

STATUS 

CHANNEL END 
DEVICE END 
UNIT CHECK 
UNIT EXCEPTION 



CSW 



K CA US CS CT 
00 003EF0 0C 08 0000 



--- CHANNEL STATUS 



PRGM-CTLD IRPT 

INCORRECT LENGTH 

PROGRAM CHECK 

PROTECTION 



CHAN DATA CHECK 
CHAN CTL CHECK 
I/F CTL CHECK 
CHAINING CHECK 



SENSE BYTE DATA 

BYTE BYTE 1 BYTE 2 BYTE 3 BYTE 4 BYTE 5 
00000000 00000000 00000000 00000000 00000000 00000000 



Figure 25. OBR Records Formatted by EREPOBR Lists 
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MODEL 30 

CHANNEL/UNIT ADDRESS 0181 



PROGRAM IDENTITY - TESTCASE 



FIRST CCW 
FAILING CCW 



CC DA FL CT 
07 0030F6 40 00 0006 
06 00307A 60 00 0025 



DAY 
DATE - 022 



CSW 



YEAR HH MM SS 

69 TIME - 00 01 36 
K CA US CS CT 
00 003128 OE 00 001F 



ATTENTION 
STATUS MODIFIER 
CONTROL UNIT END 
BUSY 



UNIT STATUS 

1 CHANNEL END 

1 DEVICE END 

1 UNIT CHECK 

1 UNIT EXCEPTION 1 



CHANNEL STATUS 



PRGM-CTLD IRPT 
INCORRECT LENGTH 
PROGRAM CHECK 
PROTECTION CHECK 



CHAN DATA CHECK 
CHAN CTL CHECK 
I/F CTL CHECK 
CHAINING CHECK 1 



I/O UNITS IN USE AT TIME OF FAILURE 

CHANNEL/UNIT ADDRESSES 000C 000E 001F 0181 0182 0183 0184 0290 0291 

LOGOUT BYTES 80 81 82 83 84 85 86 87 88 89 8A 8B 
00 00 00 00 00 00 00 00 00 60 0C 91 

CAT NO. 60 BAD ADDR. OR STATUS BYTE ON INITIAL SELECT 



MODEL 30 

CHANNEL/UNIT ADDRESS 0291 



PROGRAM IDENTITY 



TESTFOUR 



DAY 
DATE - 22 



YEAR 
69 



TIME 



HH MM SS 
00 00 01 



FIRST CCW 
FAILING CCW 



CC DA FL CT 
07 0030F6 40 00 0006 
12 003150 00 00 0008 



UNIT STATUS 

ATTENTION 1 CHANNEL END 

STATUS MODIFIER 1 DEVICE END 

CONTROL UNIT END UNIT CHECK 1 

BUSY UNIT EXCEPTION 



CSW 



PRGM-CTLD IRPT 
INCORRECT LENGTH 
PROGRAM CHECK 
PROTECTION CHECK 



K CA US CS CT 
00 003130 OE 40 0008 

CHANNEL STATUS 

1 CHAN DATA CHECK 

1 CHAN CTL CHECK 

I/F CTL CHECK 1 

CHAINING CHECK 1 



I/O UNITS IN USE AT THE TIME OF FAILURE 

CHANNEL/UNIT ADDRESSES 000C 000E 001F 0180 0181 0182 0183 0184 0290 0291 

LOGOUT BYTES 80 81 82 83 84 85 86 87 88 89 8A 8B 
00 00 00 00 00 F6 C8 CF 00 00 00 00 



A REG CHECK L 

B REG CHECK 1 

M-N REG CHECK 1 

CNTRL REG CHECK 1 



SALS CHECK 
ROAR CHECK 
R REG CHECK 
ALU CHECK 



Figure 26. Edited Channel Inboard Error Records (Model 30) 
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MODEL 30 PROGRAM IDENTITY - PROGRAM1 DAY YEAR HH MM SS 

DATE - 195 68 TIME - 00 00 17 

I/O UNITS IN USE AT THE TIME OF FAILURE 

CHANNEL/UNIT ADDRESSES 000C 000E 001F 0180 0181 0182 0185 0190 0191 0000 

SM KS IC CM IA 
OLD MACHINE CHECK PSW FF 01 02FF 04 002058 

GENERAL PURPOSE REGISTERS — - 

GP REGS 0-3 01 23 45 67 01 23 45 67 01 23 45 67 01 23 45 67 

GP REGS 4-7 01 23 45 67 00 00 02 FE 00 00 02 FE 00 00 02 FE 

GP REGS 8-B 00 00 02 FE 00 00 02 FE 00 00 02 FE 00 00 02 FE 

GP REGS C-F 00 00 02 FE, 00 00 02 FE 00 00 02 FF 00 00 02 FE 

FLOATING POINT REGISTERS 

FP REGS 0,2 00 00 00 00 11 22 33 44 00 00 00 00 11 22 33 44 
FP REGS 4,6 00 00 00 00 11 22 33 44 00 00 12 12 12 12 12 12 

LOGOUT BYTES 80 81 82 83 84 85 86 87 88 89 8A 8B 
A3 00 00 00 00 00 00 00 00 00 00 00 

MACHINE CHECK ERROR REGISTER 

A REG CHECK 1 SALS CHECK 

B REG CHECK ROAR CHECK 

M-N REG CHECK 1 R REG CHECK 1 

CNTRL REG CHECK ALU CHECK 1 



Figure 27. Edited Machine Check Record (Model 30) 
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MODEL 40 








PROGRAM 


IDENTITY - DF33B33 












CHANNEL/UNIT 


ADDRESS 0280 












DAY YEAR 


HH MM SS 




















DATE - 


265 68 TIME - 


00 01 27 






CC 


DA 


FL CT 
















FIRST CCW 




04 0040C0 


20 00 0006 












K CA US 


CS CT 


FAILING CCW 




00 000000 


00 00 0000 












CSW 00 000000 00 


00 0000 


I/O UNITS IN 


USE 


AT THE TIME OF FAILURE 














CHANNEL/UNIT 


ADDRESSES 


0280 0282 


3000 0000 0000 0000 0000 


0000 0000 0000 








CHANNEL 


LOGOUT 


















ROBAR 




1 0000 


EARLY CK 





CTRL CK 





YA STATS 


0000 






A REG 





00 


00 


LATE CK 





ROS ADDR CK 





YB STATS 


0000 






B REG 




00 


00 


RX PTY CK 


1 


ROS DATA CK 





FUNCT REG 


01000 






C REG 





00 


00 


R0 PTY CK 





B DEC CK 





INH DUMP Y8 









D REG 




00 


00 


Rl PTY CK 





C DEC CK 





SKEW REF 


0000 






J REG 






00 


MSAB PTY CK 





D DEC CK 













H REG 






00 


ROAR CK 





H LOAD DEC CK 













P REG 






00 


LS RD PTY CK ' 


H DES DEC CK 













Q REG 






00 


DO PTY CK 


1 


H INC DEC CK 













LS 43-INST 


BUF 


00 


Dl PTY CK 





J DEC CK 





PMA 









SPLS KEY 




0000 


SPLS KEY CK 


1 


N DEC CK 





IMA 









SPLS DATA 




0000 


SPLS DATA CK 


P DEC CK 





I/O 









ALU EXT 






D00 


STAT PTY CK 





Q DEC CK 





YCD 

















P PTY CK 





R DEC CK 


1 


YCI 









MPX INTRPT 









Q PTY CK 





D/Y8 CK 


1 


DPI 









SCI INTRPT 









2-WIRE I-P 


CAR 














SC2 INTRPT 






1 


2-WIRE I-P 


CAR 














EXT INTRPT 









ALU 2-W CKS 
EX PTY CK 
SQ SEL CK 
ALU FUN CK 
LSAR PTY CK 


00 




1 














MULTIPLEXOR CHANNEL 
















CCW ADDR 


00 


00 


00 


CCK LOG INT 





SEL OUT 





I/F PTY 









DATA ADDR 


00 


00 


00 


UF INT 





SEL IN 





I/F TAG 









UNIT NO 






00 


END INT 





ADDR OUT 





I/O MODE 









COUNT 




00 


00 


PCI INT 





ADDR IN 





CHAN DATA 

















WLR 





COM OUT 





CHAN CTRL 









MPX-ROAR 







00 


PGM CK 





STAT IN 





I/F CTRL 

















PROT CK 





SER OUT 





WLR WR 









PMA 









CDK 





SER IN 





I/F REG 


00 






IMA 









CCK 





OP OUT 













CPU STATE 









IFCC 





OP IN 













DAT 









CLA 

CCW 

SILI 

SKIP 

PCI 

OP CODE 

CT ZERO 

END 







000 




SUP OUT 
REQ IN 
SELECT 
INH SEL 
UNIT UNOB 
HLT I/O ' 


















HIGH SPEED SELECTOR CHANNEL 1 


___ 














S REG 





00 


00 


CDA 





PCI 





SEL OUT 









T REG 




00 


00 


CC 





WLR 





SEL IN 









REF CCW AC 





00 


00 


SILI 





PGM CK 





ADDR OUT 









REF ADR WR 





00 


00 


SKIP 





PROT CK 





ADDR IN 









LS 25 WORK 





00 


00 


CH Y3 





CDK 





COM OUT 









LS 21 DREG 





00 


00 


CH Yl 





CCK 





STAT IN 









LS 20 AREG 





00 


00 


RD/WR 





ICC 





SER OUT 









UNIT NO 






00 


RD BACK 





CHAIN 





SER IN 

















LS 24 CH FLGS 00 






OP OUT 









WC 






00 


CHAIN FLGS 


30000 


CH- SEL LATE 





OP IN 









Wl 






00 


BUF CT 





TO PTY CK 





SUP OUT 









W2 






00 


BUF CT1 





Tl PTY CK 





REQ IN 









W3 






00 


BUF CT EQ 





W0 PTY CK 





SELECT 









W4 






00 


CHAN SP KEY 


0000 


BUS IN CK 
CCW FLGS CK 
I/F TAG CK 







INH SEL 
UNIT UNOB 
HLT I/O 











HIGH SPEED SELECTOR CHANNEL 2 


-- 














S REG 





00 


00 


CDA 





PCI 





SEL OUT 









T REG 




00 


00 


CC 





WLR 





SEL IN 









REF CCW AD 





00 


00 


SILI 





PGM CK 





ADDR OUT 









REF ADR WR 





00 


00 


SKIP 





PROT CH 





ADDR IN 









LS 35 WORK 





00 


00 


CH Y3 





CDK 





COM OUT 









LS 31 DREG 





00 


00 


CH Yl 





CCK 





STAT IN 









LS 30 AREG 





00 


00 


RD/WR 





ICC 


1 


SER OUT 









UNIT NO 






80 


RD BACK 





CHAIN 





SER IN 

















LS 34 CH FLGS 00 






OP OUT 









WC 






00 


CHAIN FLGS 


30000 


CH SEL LATE 





OP IN 









Wl 






00 


BUF CT 





TO PTY CK 





SUP OUT 









W2 






00 


BUF CT 1 





Tl PTY CK 





REQ IN 









W3 






00 


BUF CT EQ 





W0 PTY CK 





SELECT 









W4 






00 


CHAN SP KEY 


0000 


BUS IN CK 
CCW FLGS CK 
I/F TAG CK 







INH SEL 
UNIT UNOB 
HLT I/O 












Figure 28. Edited Channel Inboard Error Record (Model 40) 
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MODEL 50 




PROGRAM IDENTITY - TESTCASE 












CHANNEL/UNIT 


ADDRESS 


0280" 










DAY YEAR 




HH MM SS 




CC DA 


FL CT 










DATE - 131 68 


TIME - 


01 17 06 


FIRST CCW 


FF 010006 AA 00 398E 
















FAILING CCW 


FF O000OE 00 49 9866 










K 


CA "US 


CS CT 
















CSW 12 345678 90 


12 3456 




UNIT STATUS" — 






























CHANNEL STATUS" 




ATTENTION 


1 


CHANNEL END 


PRGM- 


CTLD 


IRPT 


CHAN DATA CHECK 


STATUS MODIFIER 


DEVICE END 


INCORRECT 


LENGTH 


CHAN CTL 


CHECK 


CONTROL UNIT 


END 


UNIT 


3HECK 


PROGRAM 


CHECK 


I/F CTL 


:heck 1 


BUSY 


1 


UNIT 


EXCEPTION PROTECTION CHECK 1 


CHAINING 


CHECK 


I/O UNITS IN 


USE AT 


THE TIME OF FAILURE 














CHANNEL/UNIT 


ADDRESSES 0280 0282 


0000 0000 0000 0000 0000 


0000 0000 0000 


5€!»:5«cs« :<:::: 


cx::;c:c?c:c:::c:i 


SELECTOR 


CHANNEL 


_. 
















B REG 01 ] 


L 23 1 45 1 67 


C REG 01 1 23 1 45 


1 


67 






BYTE CTR A 


00 


UA FETCH 





POS REG TRE 







GP REG 0000000 






BYTE CTR B 


00 


CCW-1 TYPE 





INH RD ST 







FLAG REG CDA 






END REG 


00 


CCW-2 TYPE 





A CLOCK 0000 




FLAG REG CC 1 






LAST WORD 


011 


UNIT SEL 





SP 


00 




FLAG REG SI LI 






EOR CT INTLK 





RD STORE 





INST SCAN 


1 




FLAG REG SKIP 






EOR 1 


1 


WRT FETCH 





CHAN IN USE 


1 




FLAG REG PCI 






EOR 2 





END UP 





POLL 







FINISH 1 






EOR RD INTLK 





COMP 





POLL INTRPT END 







FIRST WORD 1 






B AC 





IRPT 


1 


INST INH 


1 




FIRST BYTE 






LS ENABLE 


1 


CY CTR STEP 


3 1 


BC READY 







TOT FETCH 1 






LS REG FULL 


1 


CY CTR STEP1- 


-3 001 


UA TO BUS 







WR CHAIN PRCD 






B REG FULL 


1 


CLOCK A0 





U SEL ADR OUT 







STOP REL 






C REG FULL 





CLOCK Al 





COMP EQUAL 


1 




STATUS NEXT 1 






READ BKWD 


1 


CLOCK STEP 





COMP NOT EQUAL 


1 




C1-C4 0110 






READ OP 





LS REQ 


1 


STOP 


1 




SUP OUT 






READ READY 





PCI REQ 


1 


IF CDA 1ST BYTE 







REQ IN 1 






READ IF 





PRIORITY 


101 


CD 


1 




SVC OUT HOLD 1 






WRT OP 


1 


REQ REG 


D00101 


BC MOD ENABLE 







ENABLE STAT IN 1 






WRT READY 





STAT 


1011 


WRT CHAIN. RDY 













WRT IF 


1 


CHAN DET LS 





REC END 













CD-PC TYPE 


1 


CHAN DET PRI 


1 


OP IN TEST 


1 










CHAN CK SIM 





CHAN DET PRI 


2-3 1 


CHAN STOP 













CHAN CK I LI 


1 


CHAN DET PCI 


1 


SEL OUT 


1 










CHAN CK PROG 


1 


CHAN DET INH 


RTN 1 


STOP ROUTINE 


1 










CHAN CK ST PROT 






SEL IN 













CHAN CK DATA 









OP IN 


1 










CHAN CK CTRL 


1 






SERV OUT 


1 










CHAN CK IF CTRL 1 






ADR OUT 













CHAN CK CHAIN 1 1 






CMND OUT 





















SERV IN 


1 


















ADR IN 


1 


















STAT IN 


1 











Figure 29. Edited Channel Inboard Error Record (Model 50 Short Record) 
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CD 

o 



w 

Oi 
H» 
(t 
CD 
Oi 

3 

a 
& 

H- 
CD 

n 

S3* 
CD 

o 

CD 

o 
o 
h 
pi 



p« 

CD 



O 








" 


- MACHINE 


CHECK 


DATA EDITING 




| — MULTIPLEXOR CHANNEL EDITED LOG 
, BFR 1 11111111 SEL OUT 


























CTRLD EMIT 111] 




MODEL 50 


PROGRAM IDENTITY - 


TESTGOOD 




DAY YEAR 


HH MM SS 


BFR 1 11111111 


SEL IN 




RTNE REQ A ] 












DATE - 135 


68 TIME - 


00 00 20 


REQ LOG 1 


DP IN 




RTNE REQ El 




















1 MPX I/O STATS llll 


SUP OUT 




RTNE REQ E2 




I/O UNITS IN USE AT THE TIME OF FAILURE 










• DATA TFR 1 


REQ IN 




RTNE REQ E3 I 




CHANNEL/UNIT ADDRESSES 000D 000C 0181 


D292 0000 0000 0000 


0000 0000 0000 




| CC RESET 1 


SERV OUT 




RTNE REQ E4 






















ADR OUT 




PRIORITY 2 






SM KS IC 


CM 


IA 












■ CMND OUT 




PRIORITY 3 




OLD MACHINE CHECK PSW FF 00 0123 


AB 


005098 












SERV IN 




PRIORITY PCI 






















ADR IN 




CC 




GENERAL PURPOSE REGISTERS" 
















STAT IN 




DTC 






















BUS OUT 1 lllllll 


UCW 




GRP 0-1 1 00 


1 00 1 20 1 00 1 


00 


1 00 1 


20 1 


00 








PRGM CHK 




IB FULL 




GRP 2-3 1 00 


1 00 1 20 1 00 1 


00 


1 00 1 


20 1 


00 








PROT CHK 




POLL 




GRP 4-5 1 00 


1 00 1 20 1 00 1 


00 


100 1 


00 1 


FF 












BURST MODE 




GRP 6-7 1 00 


1 00 1 00 1 FF 1 


00 


1 00 1 


00 1 


FF 
















GRP 8-9 1 00 


1 00 1 00 1 FF 1 


00 


1 00 1 


00 1 


FF 
















GRP A-B 1 00 


1 00 1 00 1 FF 1 


00 


1 00 1 


00 1 


FF 






■ SELECTOR CHANNEL 








GRP C-D 1 00 


1 00 1 00 1 FF 1 


00 


1 00 1 


00 1 


FF 
















GRP E-F 1 00 


1 00 1 00 1 FF 1 


00 


1 00 1 


00 1 


FF 






1 B REG 1 FF 1 FF 1 


FF 1 FF 


C 


REG 1 FF 1 FF 1 FF 1 


FF 


FLOATING POINT REGISTERS" 














BYTE CTR A 1 11 


UA FETCH 




POS REG TRE 


GP REG lllllll 


















1 BYTE CTR B 1 11 


CCW-1 TYPE 




INH RD ST 1 


FLAG REG CDA 1 


FPR 00 


00 00 00 


00 


1 00 


00 


00 






| END REG 11 


CCW-2 TYPE 




A CLOCK llll 


FLAG REG CC 1 


FPR 2 00 


00 00 00 


00 


00 


00 


00 






LAST WORD 111 


UNIT SEL 




SP 1 


FLAG REG SI LI 1 


FPR 4 00 


00 00 00 


00 


00 


00 


00 






1 EOR 1 1 


RD STORE 




INST SCAN 


FLAG REG SKIP 1 


FPR 6 00 


00 00 00 


00 


00 


00 


00 






| EOR 2 1 
, EOR RD INTLK 1 
1 B AC 1 
| LS ENABLE 1 


WRT FETCH 
END UP 
COMP 
IRPT 




CHAN IN USE 

POLL 

POLL INTRPT END 

INST INH 


FLAG REG PCI 1 
FINISH 1 
FIRST WORD 1 
FIRST BYTE 1 




































LS REG FULL 1 


CY CTR STEP C 




BC READY 


TOT FETCH 1 


















1 B REG FULL 1 


CY CTR STEP1- 


3 11 


UA TO BUS 


WR CHAIN PRCD 1 


CPU EDITED 


LOG 














i C REG FULL 1 
READ BKWD 1 


CLOCK 40 
CLOCK 41 




L U SEL ADR OUT 
L COMP EQUAL 


STOP REL 1 
STATUS NEXT 1 


EMUL STAT 1 
















1 READ OP 1 
i READ READY 1 


CLOCK STEP 
LS REQ 




L COMP NOT EQUAL 
L STOP 


C1-C4 llll 
L SUP OUT 1 


ROSDR 0-30 


I 111 11 111111 1111 


111 


11111 


1 'ill 


111 






READ IF 1 


PCI REQ 




IF CDA 1ST BYTE 


L REQ IN 1 


ROSDR 31-55 


L 111 11111 1111 11 1 


1 


111 11 11 








1 WRT OP 1 


PRIORITY 


11 


L CD 


L SVC OUT HOLD 1 


ROSDR 56-99 


1 1111 111 1 111 1111 


111111 11111 1 


111111 


11 11 




. WRT READY 1 


REQ REG 11111 


L BC MOD ENABLE 


L ENABLE STAT IN 1 


















WRT IF 1 


STAT 


111 


L WRT CHAIN RDY 




PREV ROS ADR 


03FF 














1 CD-PC TYPE 1 


CHAN DET LS 




1 REC END 




CURR ROS ADR 


03FF 














| CHAN CK SIM 1 
, CHAN CK I LI 1 


CHAN DET PRI 
CHAN DET PRI 


1 
2-3 


1 OP IN TEST 
L CHAN STOP 




SDR 1 7F 


1 3F 1 IF 1 OF 




SAR 


1 7F 


1 3F 1 


IF" 




. CHAN CK PRUG 1 


CHAN DET PCI 




1 SEL OUT 




H REG 1 7F 


1 3F 1 IF 1 OF 




IAR 


1 7F 


1 3F 1 


IF 




1 CHAN CK ST PROT 1 


CHAN DET INH 


RTN 


1 STOP ROUTINE 




L REG 1 7F 


1 3F 1 IF 1 FF 














| CHAN CK DATA 1 






SEL IN 




R REG 1 7F 


1 3F 1 IF 1 FF 














CHAN CK CTRL 1 






OP IN 




M REG 1 7F 


1 3F 1 IF 1 FF 














CHAN CK IF CTRL 1 
1 CHAN CK CHAIN 1 1 






SERV OUT 
ADR OUT 




ONE SYL OP 


1 I/O MODE 




LSAR 




Lllllll 


HALF SJM 


llll 








CMND OUT 




REFETCH STAT 


1 I/O REG 1 


11 LS FUN REG ' 11 


SUM 


llll 








SERV IN 




IRPT REG 111111 TMR IRPT STAT 




J REG 


1 llll 


CARRY 










ADR IN 




BYTE STATS 


Llll CNSL IRPT STAT 




MD REG 


1 llll 


L BYTE CTR 










STAT IN 






L BYTE CTR 1 


11 Gl 




L 11111 


M BYTE CTR 














MARK CHK 


1 M BYTE CTR 1 


11 G2 




L 11111 


MD REG 














KEY CHK 


1 F REG 1 


llll CPU 


MVR FUN 111 


Gl 














ADR CHK 


1 Q REG 




I/O 


MVR FUN 111 


G2 














DATA CHK 


1 EDIT STATS 


11 






MVR INPUT L 














UNIT IDENT 


Llll GP STATS 11111111 






MVR INPUT R 
















L SIGN 


1 






MVR OUTPUT 
















R SIGN 










SAR 


111 














CARRY 










ROS 


111 














RTL 










PROT TAG 

LCS 

LOG REQ 














COMMON CHANNEL EDITED LOG - — 
























START I/O 


1 RTN RECD 




BUFFER 1 


llll 
















TEST I/O 


1 PCI ENABLE 




BUFFER 2 


llll 
















HALT I/O 


1 BREAK IN 




BUFFER 3 


llll 
















TEST CHAN 


1 I/O ROUTINE 




I/O 


STATS 


11111 
















CHAN NO 


111 EARLY 1ST CY 




I/O 


CHK MODE 1 
















INSN REPLY 


Llll FIRST CY 




LOG 


(1,2,3) 111 
















REPLY 


1 CHAIN 1ST CY 




GATE 


STATUS 1 
















BCHI 


1 LS READ 




RESET 


1 
















PRCH ON IRPT 


1 LS WRITE 
























TIME OUT 


1 CHAL DTC 
























TIME OUT CHECK 


1 ALCH DTC 
























FOUL 


1 CHAIN 

LAST CYCLE 
BREAK OUT 
SBCR 
ROS BITS 
FIRST CY CHK 


111 
111 







































2715 ERROR LOG 


DATA 


EDITING 




DISK 
DISK 


ADAPTER 
ADAPTER 


ERROR 
ERROR 


LOG 
LOG 


CUA 
CUA 


0170 
0172 


ID 
10 


04 
04 


OAY 287 
DAY 287 


TIME 
TIME 


01.23 
11.23 


ERRORS 
ERRORS 


0203030? 
02030303 


DISK 


ADAPTER 


ERROR 


LOG 


CUA 


0170 


ID 


01 


DAY 222 


TIME 


01.33 


ERRORS 


C0050505 


2790 
2790 


ADAPTER 
ADAPTER 


ERROR 
ERROR 


LOG 
LOG 


CUA 
CUA 


0170 
0170 


ID 
10 


04 
04 


DAY 287 
DAY 287 


TIME 
TIME 


01.23 
01.23 


ERRORS 
ERRORS 


11F1F2E3 
10F1F2F3 


2790 


ADAPTER 


ERROR 


LOG 


CUA 


0170 


ID 


01 


DAY 222 


TIME 


01.33 


ERRORS 


11020202 


MPX 
MPX 


ADAPTER 
ADAPTER 


ERROR 
ERROR 


LOG 
LOG 


CUA 
CUA 


0170 
0170 


ID 
ID 


04 

04 


DAY 2 87 
DAY 287 


TIME 
TIME 


11.23 
01.23 


ERRORS 
ERRORS 


22F1F2F3 
23F1F2F3 


MPX 


ADAPTER 


ERROR 


LOG 


CUA 


0170 


ID 


01 


DAY 22 2 


TIME 


01.33 


ERRORS 


22070 707 


2740 
2740 


ADAPTER 
ADAPTER 


ERROR 
ERROR 


LOG 
LOG 


CUA 
CUA 


0170 
0170 


ID 

ID 


04 
04 


DAY 287 
DAY 287 


TIME 
TIME 


11.23 
01.23 


FRRORS 
ERRORS 


33F1F2F3 
30F1F2F3 


2740 


ADAPTER 


ERROR 


LOG 


CUA 


0170 


ID 


01 


DAY 222 


TIME 


01.43 


ERRORS 


33080808 


BSC 
BSC 
BSC 


ADAPTER 
ADAPTER 
ADAPTER 


ERROR 
ERROR 
ERROR 


LOG 
LOG 
LOG 


CUA 
CUA 
CUA 


0170 
0170 
0170 


ID 
ID 
ID 


04 
04 
04 


DAY 287 
DAY 287 
DAY 287 


TIME 
TIME 

TIME 


11.23 
11.23 
1 1 . 23 


ERRORS 
ERRORS 
ERRORS 


44F1F2F3 
44444444 
44444444 


SPECIAL CODE 
SPECIAL CODE 


71 AREA STAT 40 
75 ROUTINE Fl 


ERROR TYPE- 
ERROR TYPE- 


ERROR COUNTER THRESHOLD WAS REACHED CUA 0170 ID 04 DAY 287 TIME 01,23 
BSC ON LINE TEST HAS REQUESTED CUA 0170 ID 04 OAY 287 TIME 01.23 


SPECIAL CODE 


74 AREA STAT 40 


ERROR TYPE- 


AREA STATION 


EXERCISOR WAS REQUESTED CUA 0170 ID 01 DAY 222 TIME 01.43 


AS BO DEV Fl 
AS FO DEV Fl 
AS 80 DEV Fl 


ERROR 
ERROR 
ERROR 


LOG 
LOG 
LOG 


CUA 
CUA 
CUA 


017 
0170 
0170 


10 

ID 

ID 


04 
04 
04 


' DAY 287 
DAY 287 
DAY 287 


TIME 
TIME 
TIME 


01.23 
01.23 
C 1 . 23 


ERRORS 
ERRORS 
ERRORS 


B0F132F3 CHANGE IN DATA BYTE 
F0F172F3 NULL ACKNWLDG OVERRN 
80F142F3 CHNGE IN STATUS BYTE 


AS 85 DEV 00 


ERROR 


LOG 


CUA 


0170 


ID 


01 


DAY 28 7 


TIME 


11.23 


ERRORS 


85002356 INVALID A-S RESPONSE 


AS 94 DEV Fl 


ERROR 


LOG 


CUA 


0172 


ID 


04 


DAY 2 87 


TIME 


01.23 


ERRORS 


94F152F3 END REQST STATUS ERR 


AS BO DEV Fl 


ERROR 


LOG 


CUA 


01 73 


ID 


04 


DAY 2 87 


TIME 


11.23 


ERRORS 


BCF132F3 CHANGE IN DATA BYTE 



Figure 31. Sample Output by EREP2715 
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2715 


ERROR LOG 


DATA 


EDITING 








AREA STATION ERROR SUMMARY 


CUA - 


0170 


ID - 04 












AS DEV 


-(0) 


(1) 


_( 2 ) 


(3) 


~(4) 


-(5) — 


(6) 


-(7) 


— (8) 


(9) 


***ERROR 


LOG IS 


PRINTED BY 


AREA STATION ONLY 


AS AREA STATION- 


-DEVICE COMBINATIONS 


EXCEED 


LIMITS*** 


80 


0000 


0000 


0000 


0000 


0001 


0256 


0001 


0000 


0000 


0000 


90 


0000 


0000 


0000 


0000 


0001 


0512 


0000 


oooi 


0000 


0000 


AO 


0000 


0000 


0000 


0000 


0000 


0769 


0000 


0001 


0000 


0000 


BO 


0000 


0000 


0000 


0001 


0000 


OOCO 


C001 


0000 


0000 


0000 


CO 


0000 


0000 


0000 


0000 


0001 


0512 


0001 


0000 


0001 


0001 


DO 


0000 


0000 


0000 


0000 


0001 


0200 


0000 


0000 


0000 


0000 


EO 


0000 


0000 


0000 


0000 


0002 


0512 


0000 


0000 


0000 


0000 


FO 


000? F 


RECORDS PROCESSED 
























2715 


ERROR LOG 


DATA 


EDITING 








AREA STATION ERROR SUMMARV 


r CUA - 


0171 


ID - 04 












AS DEV 


-<0>— 


(1 ) 


~(2> 


(3) 


— (4) 


-151 — 


(6) 


— (7) 


— (8)~ 


1 9 ) 


B4 04 


0001 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


CI 01 


0000 


0000 


0001 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


El 06 


0000 


0001 


0000 


0000 


0000 


0000 


GOOO 


0000 


0000 


0000 


E2 02 


0000 


0001 


0000 


0000 


COOO 


0000 


0000 


0000 


0000 


0000 


E3 01 


0000 


0001 


0000 


COOO 


0000 


0000 


GOOO 


0000 


0000 


0000 


E3 02 


0000 


COOO 


0002 


0001 


OOOC 


COOO 


0000 


COOO 


0000 


0000 


E3 03 


0001 


0000 


0001 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


E3 12 


0000 


0000 


ooco 


0001 


0000 


0000 


0000 


0000 


0000 


0000 


E3 93 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0001 


E3 C2 


0000 


0000 


0000 


COOO 


0000 


0000 


COOO 


0000 


0001 


0000 


E3 Fl 


0000 


0000 


0000 


0001 


0000 


0000 


OOOC 


0000 


0000 


0000 



Figure 32. Sample Area Station/Device Record Output by EREPASSM 
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(Decimal 


1 


3 


5 


12 


16 


20 


24 


28 


32 


36 


40 


47 


51 


55 


59 


63 


67 


71 


75 


79 


Displacement) 










































(Hexadecimal 


1 


3 


5 


C 


10 


14 


18 


1C 


20 


24 


28 


2F 


33 


37 


3B 


3F 


43 


47 


4B 


4F 


Displacement) 










































2715 
Error 


Chan 

& 
Unit 


Sta 
Id 


Day and 
Time 




Seven Log 


'cal Error Records 




Day and 
Time 






Seven 


Logica 


Error Records 




Re- 
served 




X'08' 


XX 


XX 


XXXXXXX 


XXXX 


XXXX 


XXXX 


XXXX XXXX 


XXXX 


XXXX 


XXXXXXX 


XXXX 


XXXX 


XXXX 


XXXX XXXX XXXX 


XXXX 


XXXX 


X'FF' 



Key to Displacements (in Decimal) 

X'08 1 identifies this as a 2715 error record. 

1 Channel and unit address. 

3 Station identification number, terminal if multidrop line. 
5 Seven byte transaction header in the form dddtjtjt2t2 where 

ddd = day of the year 

tit 



l r l 



: hour of the day 

*2*2 = m in ures 

12 Seven four- byte logical records. The first byte identifies the type of error as follows: 
X'On' Disk adapter error (See part 2 of this figure.) 
X'ln' 2790 adapter error (See part 2 of this figure.) 
X'2n' MPX adapter error (See part 3 of this figure.) 
X'3n' 2740 adapter error (See part 3 of this figure.) 
X'4n' BSC adapter error (See part 4 of this figure.) 
X'7n' Special codes 70-75 (See part 4 of this figure.) 

70 - Error counters were reset to zero 

71 - Error counter threshold was reached 

72 - Error scan was initiated 

73 - Area station diagnostics 

74 - Area station exercisor was requested 

75 - BSC on- line test was requested 

X'8n'- X'Fn' Area station errors (See part 5 of this figure.) 
40 Same as 5- 1 1 
47 Same as 12-39 
75 Four bytes reserved 
79 Always X'FF' 

Note: The logical records may be any combination of types as shown in displacements 12-39. 



Figure 33. Format of 2715 Error Records on SYSREC (Part 1 of 5) 
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Byte 

















Adapter Address 


(First Part of) Sector Address 


































1 


(Remainder of) Sector Address 






























2 


Error Status 


Read 
Check 


Cycle 

Steal 

Data 


Cycle 

Steal 

Address 


File Data 
Register (FDR) 
Parity Check 


File Address 

Register (FAR) 

Parity Check 


Cycle Steal 
Overrun 


Write Select 
Check 


Module 4 or 
Length Check 














3 


Control Program Operation Code Status 


Read Label 


Write 


Read Check 


Read 


(Unused) 


(Unused) 


Operation 
Initiated 


(Unused) 




Disk Adapter Error Record 










Byte 

















Adapter Address 











1 


























1 




Segment Status 


Transmit 

Active 

Frame 


Receive 

Character 

Sync 


Loop 
Active 


Receive 

Active 

Frame 


A 
Active 


B 
Active 


C 
Active 


D 
Active 














2 




Input 
Parity Error 
Accum High 


Input 
Parity Error 
Accum Low 


Transmit 
Shift Register 
Parity Error 


Receive 

Shift Register 

Parity Error 


Transmit 

Frame 

Overrun 


Receive 

Frame 

Overrun 


Receive 

Re-sync 

Error 


Control 
Register 2 
Parity Error 














3 




Receive 
Service 
Request 


Transmit 
Service 
Request 


2790 Error 
Threshold 
Exceeded 


Area Station 

Error Threshold 

Exceeded 


Not 

Receiving 

Frames 


Lost Loop 

(Channel) 

Sync 


Receive 
Reset 
Error 


Transm it 
Reset 
Error 




2790 Adapter Error Record 











Figure 33. Format of 2715 Error Records on SYSREC (Part 2 of 5) 
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Byte 



















Adapter Address 












1 





1 1 1 

(NOT USED) 
1 1 1 


















1 






,„. .,_ _„, 


1 1 

( NOT USED) 

I 1 


1 1 

1 1 


1 

(NOT 

1 


USED) 




















2 








1 

(NOT USED) 
1 


1 1 
i i 


(NO! 


USED) 




















3 


Error Status 




Program 
Check 


(Unused) 


I/O 
Bus Out 
Check 


Equipment 
Check 


(Unused) 


SCU 

Transfer 

Check 


(Unused) 


I/O 
Bus In 
Check 




Multiplexor Chan 


nel Adapter Error Record 












Byte 



















Adapter Address 












1 


1 






























1 


Routine Code 






















Read 
Operation 


Write 
Operation 


















2 


Hardware Error Status 




(Unused) 


(Unused) 


(Unused) 


Keyboard 

Bit 
Overrun 


(Unused) 


Adapter 

Input 

Parity Error 


Cycle Steal 

Bus Out 

Parity Error 


(Unused) 


















3 


Program Error Code 




(Unused) 


Not Data 
Set Ready 


(Unused) 


(Unused) 


(Unused) 


Character 
Overrun 


Message 

Greater than 

248 Bytes 


Time Out 
During Receive 




2740 Adapter Er 


ror Record 













Figure 33. Format of 2715 Error Records on SYSREC (Part 3 of 5) 
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Byte 



Adapter Address 


Mode of Operation 





1 








(Unused) 


Initialization 


Transmit 
text 


Receive 
text 



Last 

Operational 

Condition 



(Unused) 



Data Set 
Ready Off 



BSC Status 



(Unused) 



(Unused) 



Text 
Timeout 



N-retry 

Count 

Exhausted 



Inval id 
Character 
Received 



Data 
Check 



Response 
Timeout 



BSA Hardware Error Code 



(Unused) 



Transfer 
A. W. 
Latch 



(Unused) 



BSC 

Character 

Overrun 



Adapter 

Input 

Parity Error 



Cycle Steal 
Bus Out 
Parity Error 



(Unused) 



Clear to 
Send Off 



Bit 
Overrun 



BSC Adapter Status 



Lost Bit 
Service 



Transmit 



Data 

Terminal 

Ready 



Request 
to Send 



Data 

Carrier 

Off 



BSC Adapter Error Record 



Figure 33. Format of 2715 Error Records on SYSREC (Part 4 of 5) 
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Byte 



Transmitted Area Station Address 



Transmitted Device Address 



Error Code Field 1 



Field 2 



Normal AS Error Log Record 



Error Code - Error Type 


Field 1 


Field 2 


- Area Station 
Address Error 





Received Area 
Station Address 


1 - Device Address Error 





Received Device Address 


2 - Invalid Area Station 
Response 


Transmitted 
Command 


Received Control Field 


3 - Change in Data Byte 


Received Error 
Digit* 


Error Pattern** 


4 - Change in the Status 
Byte 


Received Error 
Digit* 


Error Pattern** 


5 - End Request Status Error 


High Status Digit 


Data Byte Count 


6 - Received Data Overrun 





00 


7- Null Acknowledge 
Overrun 





00 


8 - Record Length Check 
Error 





Received Record Data Byte 
Count 


9 - Valid Character Check 
Error 


Check Low Digit 


Received Character 


A - Invalid Transaction Request 





Received Transaction Code 



*Low 4 bits received. 

**Result of exclusive 'oring 1 received error digit with expected digit. 



Area Station Address is "All AS" 



Area Station Address is Not Valid 



Byte 



Pseudo Area Station Address (F0) 



1 



1 



Byte 



Pseudo Area Station Address (Fl ) 



1 



Transmitted Device Address 



(Unused) 



Received Area Station Address 



Received Area Station Address 



Received Device Address 



Received Device Address 



Exceptions to AS Error Log Record 



Figure 33. Format of 2715 Error Records on SYSREC (Part 5 of 5) 
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MACHINE CHECK DATA EDITING 










***#«**$*##***#* #**##****#*******^ 


MODEL nnn* SERIAL NUMBER FFFFF 


JOB IDENTITY - 


GET 




PROGRAM IDENTITY - NO NAME 












DAY YEAR 


HH MM 


SS 










DATE - 046 


71 TIME - 00 02 


13 




SM KS IC CM IA 


















OLD MACHINE CHECK PSW FF 04 0000 80 007890 
















*##****###**:»:$« *#*****##**********«***#*#»**#***********#*** 








MACHINE CHECK 


INTERRUPT 


CODE 














SUB CLASS 
















SYSTEM DAMAGE (SD) 




CLOCK DAMAGE (CD) 










PROC. DAMAGE (PD) 




EXTERNAL DAMAGE 


(ED) 










SYSTEM RECOVERY ( SR ) 1 




AUTO-CONFIG (AC) 













TIMER DAMAGE (TD) 




WARNING (W) 













— - INTERRUPT TENSE CODES 

















BACK-UP (B) 




DELAYED (D) 













STORAGE AND PROTECTION ERROR CODES 















UNCORRECTED STORAGE ERRORS (SE) 




UNCORRECTED PROTECTION ERRORS (PE) 









CORRECTED STORAGE ERRORS (SO 1 


















PSW 


VALIDITY CODES 














AMWP BITS DF M.C. OLD ARE VALID ( WP ) 1 




SYSTEM 


MASK OF N 


.C. OLD IS VALID (MS) 1 






PROGRAM MASK OF M.C. OLD IS VALID (PM) 1 




INSTR ADDR OF M. 


C. OLD IS 


VALID ( IA) 


1 






MISC VALIDITY CODES 














FAILING STORAGE ADDR IS VALID (FA) 1 




REGION 


CODE VALI 


D (RC) 


1 








FP REGS STORED ARE VALID (FP) 1 




GP REGS 


STORED ARE VALID 


(GP) 1 








CONTROL REGS STORED ARE VALID (CR) 1 




EXTENDED LOGOUT 


AREA VALID (LG) 1 








INSTR MODIFIED STORAGE VALID (STI 1 


















EXTENDED LOGOUT LENGTH 0000 




FAILING STORAGE ADDRESS 00007860 






— REGION CODE - 
















ERROR CORRECTION CODES 0000 




CONTROL 


WORD ADDRESS 


C100 








***#******-<#**##* *****#*****«***#**«##«*#*******##*******>!£## 








FLOATING PDINT REGISTERS 


















FP REGS 0,2 00 00 00 00 00 00 00 00 


00 00 00 


00 00 


00 00 00 












FP REGS 4 T 6 00 00 00 00 00 00 00 00 


00 00 00 


00 00 


00 00 00 












GENERAL PURPOSE REGISTERS — 


















GP REGS 0-3 00 00 78 00 00 00 78 60 


FF FF FF 


FF 03 


00 78 00 












GP REGS 4-7 00 07 FF 84 FF FF FF 7C 


00 00 00 


05 00 


00 00 02 












GP REGS 8-B 00 00 92 2C OA 04 07 Fl 


40 00 78 


02 00 


00 78 10 












GP REGS C-F 00 00 87 AO 00 00 97 AO 


00 00 08 


78 00 


00 00 7B 












CONTROL REGISTERS 


















CT REGS 0-3 00 00 00 EO 00 00 00 00 


FC 00 00 


00 00 


00 00 00 












CT REGS 4-7 00 00 00 00 00 00 00 00 


00 00 00 


00 00 


00 00 00 












CT REGS 8-B 00 00 00 00 00 00 00 00 


00 00 00 


00 00 


00 00 00 












CT REGS C-F 00 00 00 00 00 00 00 00 


CE 00 00 


00 00 


00 02 00 












MACHINE CHECK LOGOUT BYTES 


















0000 20004FDF 00000000 00000000 00000000 


00007860 


0000C103 


30300000 


00000000 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


0030 00000000 00000000 00000000 00000000 


00000000 


00000000 


00000000 


00000000 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


0060 00000000 00000000 00000000 00000000 


00000000 


00000000 


00000000 


00000000 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


0090 00000000 00000000 00007800 00007860 


FFFFFFFF 


00007830 


0007FF84 


FFFFFF7C 


00000005 


00000002 


0000922C 


0A0407F1 


OOCO 40007802 00007810 000087A0 000097A0 


00000878 


0000007B 


OOOOOOEO 


00000000 


FCOOOOOO 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


OOFO 00000000 00000000 00000000 00000000 


00000000 


00000000 


00000030 


00000000 


CEOOOOOO 


00000200 






CPU DEPENDENT LOGOUT BYTES ** 


















0000 00000000 00000000 00000000-00000000 


047310B1 


1E000200 


00000000 


oooooooo 


FFC80132 


9000854A 


FF0700E0 


82000038 


0030 FF0700E0 0A007881 10007880 10000000 


0000854A 


FF070000 


90AE90AF 


C888C2A0 


0D24FC00 


00200000 


24640820 


OOOOOOOO 


0060 00000000 00100000 00000000 O0ACOD80 


42520000 


12000000 


00000000 


OOOOOOOO 


00448160 


00730860 


80572000 


00080000 


0090 000E0020 31430000 984C2C00 00009000 


000E0020 


31430000 


F8542000 


00080000 


00000020 


OOOOOOOO 


004COCOO 


00080000 


OOCO 00000020 00000000 004C0000 00080000 


00000020 


00000000 


004COOOO 


00080000 


8000B810 


80000000 


80000000 


OOOOOOOO 


OOFO 00000000 00000000 8208011C 80402000 


18900004 


00000000 


00000000 


OOOOOOOO 


00200000 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


0120 00000108 00000000 00000000 00000000 


00000000 


00000000 


FFFFFF77 


FFFFFFFF 


00007880 


00007888 


OOOOOOOO 


007304E8 


0150 08840000 82000080 80000400 00000000 


00000000 


00000000 


00000000 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


0180 00000000 00000000 00000000 00000000 


00000000 


00000000 


00000000 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


01B0 00000000 00000000 00000000 00000000 


00000000 


00000000 


00000000 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


OOOOOOOO 


01E0 00000000 00000000 00000000 00000000 


00000000 


00000000 


00000000 


OOOOOOOO 


AAAAAAAA 


0251AA55 


80A088A8 


88AA282A 


0210 608976D2 19457C55 554555A0 89565555 


55410145 


44050155 


44050145 


54554545 


54554545 


54554545 


14151555 


55554001 


0240 54555555 45555555 50555555 AAAA5AA5 


686A554E 


D65411AA 


55555555 


55555555 


55555555 


55555555 


55555555 


55555555 


0270 55555555 55555555 55555555 55555555 



















' nnn= System/370 Models 145 or 155 

k Displayed as Model 155; see Figure 35 for Model 145 



Figure 34. Edited Machine Check Record — Model 155 
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MACHINE CHECK DATA EDITING 



MODEL 145 



SERIAL NUMBER 136 



JOB IDENTITY - 145 CCH 



PROGRAM IDENTITY - EREP 



DAY YEAR 
DATE - 04 60 



HH MM SS 
TIME - 08 00 00 



SM KS IC CM IA 
OLD MACHINE CHECK PSH 31 00 028E 40 000005 



MACHINE CHECK INTERRUPT CODE 

(Similar to Model 155 printout through the Machine Check Logout Bytes) 



CPU DEPENDENT LOGOUT 



#*#*##******#**#******#***##****#*##****#**#**##**** ******^ 



MACHINE CHECK REGISTER A 



BYTE 

LOCAL STORAGE A SOURCE ADDR CHK 

LCCAL STORAGE B SOURCE ADDR CHK 1 

LOCAL STORAGE A BEST ADDR CHK 

LOCAL STORAGE B BEST ADDR CHK 

DEST BYTE CTRL CHK 1 
LOCAL STORAGE A-B DEST ADDR COMPARE 

LOCAL STORAGE CTRL ASSM CHK 

CTRL REG PTY CHK 1 

BYTE 1 

ADDR CHK BOUND REG CHK 



BYTE 2 

ALU 2 HALF SUM CHK 1 

ALU 3 HALF SUM CHK 

ALU LOGICAL CHK 1 

B REG SHIFT CHK 

A REG PTY CHK 

B REG PTY CHK 1 

Z REG PTY CHK 

D REG PTY CHK 1 

BYTE 3 
EXT REG DEST X COMP CHK 



SYSTEM REGISTER 



BYTE 
MACHINE CHK INTEEPT PENDING 
RETRY ROUTINE 
MACHINE CHK ROUTINE 
DOCUMENTARY CONSOLE 
LOG PRESENT 
SPARE 

I/O INSTN LATCH 
FORCE MODULE TC LSCS 

BYTE 1 



BYTE 2 
ENABLE CLEAR SW 
IMPL 

LOAD FILE WAIT 
CE KEY IN CE MODE 
IPL 

POWER ON RESET 
ERROR IN A STOP WORD 
INSTR PROC LATCH 

BYTE_ 3 



LOCAL STORAGE REGISTERS 



-- I REGISTER 



STORAGE PROTECT KEY - A2 
INSTR ADDR - 0267AE 



X REGISTER 

2378A3E4 



IBU REGISTER 

023467AO 



— WK REGISTER 

7840AE46 



W REGISTER 

784078EF 



U REGISTER 



— NP REGISTER 
LAST LOGL ADDR 


0345 


ADR ADJ MODE 
FORMAT CHK 
NP-2-2 
NP-2-3 
NP-2-4 



1 
1 

1 


EMUL MODE 





NP-2-6 
NP-2-7 
NP-3-0 
NP-3-1 


1 





NP-3-2 
NP-3-3 
EXECTD INSTR 


1 






R REGISTER 

AB34973E 



TR REGISTER 

0457892E 



DM REGISTER 

BF904578 



CPU REGISTER 

HARD STOP LATCH 
ENABLE HARD RETRY 
SING BIT FAIL M STOR 
SING BIT FAIL CT STOR 
THRESH MODE CT STOR 
LST T/S - CONS FILE 



INSTR LENGTH CODE 


01 


CONDITION 


CODE 


11 


PROGRAM MASK 


1011 


AMWP BITS 




0011 


OP CODE 




01100101 


IMMEDIATE 


BYTE 


00001101 


Y REGISTER 


- 


~ Q REGISTER 


456792E1 




3EFFA202 


SN REGISTER — 


_ 


— PN REGISTER -- 


0246 




0578 


RW REGISTER — 


_ 


— V REGISTER 


905678EA 




cooooooo 



PSWCTL REGISTER 



EVR MSK 
TRANS MODE 
I/O MASTER MSK 
EXT MASTER MSK 
TIMER MSK 
INTERRUPT KEY MSK 
EXT SIGNAL MSK 






MDC MODE 


1 


1 


MACH CHK MSK 








WAIT STATE 





1 


PROB STATE 


1 





MPX CHAN MSK 


1 





CHAN 1 MSK 





1 


CHAN 2 MSK 
- CHAN 3 MASK 




1 




CHAN 4 MASK 






MACHINE CHECK EXTENDED LOGOUT BYTES ~ 

0000 00000000 00000000 00000000 000C0000 
0030 00000000 00000000 OOCOOOOO 00000000 
0060 00000000 00000000 OCOOOOOO 00000000 



00000000 00000000 00000000 00000000 
OOCOOOOO 00000000 00000000 00000000 



00000000 00000000 00000000 00000000 
OOOOCOOO 00000000 00000000 00000000 



Figure 35. Edited Machine Check Record — Model 145 
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CHANNEL INBOARD EDITING 



SERIAL NUMBER FFFFF 



MPX CHANNEL 
CHANNEL/UNIT ADDRESS 



FAILING CCW 



CC DA 
01 007840 



FL CT 

00 00 0050 



UNIT STATUS 



JOB IDENTITY 





PROGRAM IDENTITY - DOES N 


DAY 


VEAR HH MM SS 


046 


71 TIME - 14 17 36 




K CA US CS CT 


CSW 


10 0078D0 00 04 OOOF 







ECSW 






ERROR 


SOURCE 


VALIDITY 


TERM TYPE 


00 


CPU 





I/F ADDR 1 


DISCIN BIT 





CHAN 


1 


SEQ CODE 


L SEQ CODE 


101 


SCU 





DEV STATUS 






su 





CCW ADDR 






cu 





CHAN ADDR 1 
DEV ADDR ] 







— CHANNEL STATUS 



ATTENTION 





CHANNEL END 





STATUS MODIFIER 





DEVICE END 





CONTROL UNIT END 





UNIT CHECK 





BUSY 





UNIT EXECPTION 






PRGM-CTLD IRPT 
INCORRECT LENGTH 
PROGRAM CHECK 
PROTECTION CHECK 



CHAN DATA CHECK 

CHAN CTL CHECK 1 

I/F CTL CHECK 

CHAINING CHECK 



I/O UNITS IN USE AT TIME OF FAILURE 

CHANNEL/UNIT ADDRESSES OOOD 0000 0000 0000 0000 0000 0000 DOOO 



Figure 36. Edited Channel Check Record — Model 155 
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CHANNEL INBOARD EDITING 

MODEL 145 SERIAL NUMBER 010015 JOB IDENTITY - ERPU001 PROGRAM IDENTITY - DOES NOT APPLY 

MPX CHANNEL * 

CHANNEL/UNIT ADDRESS OOOE 



CC DA FL CT 
FAILING CCW 01 0073C1 60 00 0C32 



ERROR SOURCE 



DAY YEAR 
DATE - 131 71 



HH MM SS 
TIME - 20 07 33 



K CA US CS CT 
00 007388 08 04 1111 



CPU 

CHAN 

SCU 

SU 

CU 



ECSW 






VALIDITY 


I/F 


ADDR 





SEQ 


CODE 


1 


DEV 


STATUS 





CCW 


ADDR 


1 


CHAN ADDR 


1 


DEV 


ADDR 


1 



TERM TYPE 


00 


DISCIN BIT 





SEQ CODE 


101 



UNIT STATUS 



CHANNEL STATUS 



ATTENTION 
STATUS MODIFIER 
CONTROL UNIT END 
BUSY 



CHANNEL END 
DEVICE END 
UNIT CHECK 
UNIT EXECPTION 



PRGM-CTLD IRPT 
INCORRECT LENGTH 
PROGRAM CHECK 
PROTECTION CHECK 



CHAN DATA CHECK 

CHAN CTL CHECK 1 

I/F CTL CHECK 

CHAINING CHECK 



I/O UNITS IN USE AT TIME CF FAILURE 

CHANNEL/UNIT ADDRESSES OOOC OOOD OOOE 001F 0131 0000 0000 0000 



CHANNEL INBOARD EDITING — 



— DEPENDENT LOGOUT 



MACHINE CHECK REGISTER A 



BYTE 
LOCAL STORAGE A SOURCE ADDR CHK 
LOCAL STORAGE B SOURCE ADDR CHK 
LOCAL STORAGE A DEST ADDR CHK 
LOCAL STORAGE B DEST ADDR CHK 
DEST BYTE CTRL CHK 

LOCAL STORAGE A-B DEST ADDR COMPARE 
LOCAL STORAGE CTRL ASSM CHK 
CTRL REG PTY CHK 

BYTE 1 
ADDR CHK BOUNO REG CHK 



BYTE 2 
ALU 2 HALF SUM CHK 
ALU 3 HALF SUM CHK 
ALU LOGICAL CHK 
B REG SHIFT CHK 
A REG PTY CHK 
B REG PTY CHK 
Z REG PTY CHK 
REG PTY CHK 

BYTE 3 
EXT REG DEST X COMP CHK 



— CHANNEL INBOARD EDITING 



RETRY COUNTS 

RETRIES PER CURRENT MACRO 
NUMBER OF MACROS RETRIED 

RETRY REG 3 — 

MACHINE CHECK TRAP 

RETRY TRAP 

CPU hIGH TRAP 
INT FILE ADAPTER OR 

SEL CHAN 1,2,3 



RETRY REGS 1,2 



1111 
01 



RETRY REG 1 (ABRTY) 
RETRY REG 2 (SPTLB} 



60030224 
00000000 



RETRY REG 4 

DESTBYTE LINES 
4-1 
5-1 
6-1 
7-0 



BYTE 
MACHINE CHK INTERPT PENDING 
RETRY ROUTINE 
MACHINE CHK ROUTINE 
DOCUMENTARY CONSOLE 
LOG PRESENT 
SPARE 





SYSTEM REGISTER 




^G 1 
1 

1 
1 




BYTE 2 
DOCUMENTARY CONSOLE 2 
IMPL 

LOAD FILE WAIT 
CE KEY IN CE MODE 
I PL 
POWER ON RESET 



1 



1 
1 



Figure 37, Edited Channel Check Record — Model 145 (Part 1 of 2) 
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CHANNEL INBOARD EDITING 



LOCAL STORAGE REGISTERS 



I REGISTER 







U REGISTER 







KEY - OC 






INSTR LENGTH CODE 


00 




INSTR ADDRESS - 00004B 




CONDITION CODE 


11 










PROGRAM MASK 


0000 










AMWP BITS 


0000 










OP CODE 


00011011 










IMMEDIATE 


00000000 




INSTRUCTION CODES 


— - UNIT ADDRESS 


UCW ADDRESS 


SEQ CODE 




CHAN LOADED 





00 


C100 


00 




CONTROL COMMAND 













CHAINING 





INTERRUPT BUFFER 


BUS IN 


BUS OUT 




SHARE REQ 


c 


0000 


58 


EO 




INTERRUPT 













HIO 





MC REG 


MD REG 


COUNT 




TIO 





KEY - 00 


00000000 


HIGH 00 




SIO 





NEXT CCW ADDR F50002 




LO 07 




* MCMD.MF VALID 


IF 1 










FLAGS AND 


OPS 


TAGS IN 


TAGS OUT 


UCW/CAHN STATUS 


— 


CHAIN DATA 




OP IN 


OP OUT 


ACTIVE/PCI 





CHAIN COMMAND 




ADDR IN 


SEL OUT 


WLR 





SLI 




STAT IN 


ADR OUT 


PROG CK 


1 


SKIP 




SRV IN 


CMD OUT 


PROT CK 


1 


PCI 




SEL IN 


SRV OUT 


STATUS QUEUED OR 




IDA 




MPX REQUEST 


MPX INT 


CHAN DATA CK 





INPUT, OUTPUT* 




MPX OR CONSOLE REG 


SUPR CUT 


CHAN CTRL CHECK 


1 


INCR,DECR** 




DISC IN 


MPX CHECK 


I/F CTL CHECK 


1 


*OUTPUT IF 1, INPUT IF 






STATUS NEXT 


1 



^Sihh^ 



Printout of this area documents appropriate 
status for multiplexor-dependent, or selector- 
dependent, or integrated file adapter channel 
check errors. This example shows the MPX 
logout. 



^♦INCREMENT IF 1, DECREMENT IF 



BUS IN — 

58 



DOCUMENTARY CONSOLE WORD — 



BUS OUT - 


IA 





EO 


READ LATCH 







WRITE LATCH 







STACKED REQ 







SHARE RESET 







ATTEN RESET 







ALARM 







SEN SHARE SET 






IT 

ATTENTION 

READY 

INTV REQUIRED 

END 

CONSOLE REQ 

CANCEL 



MPX DEPENDENT LOGOUT BYTES — -* 



0000 0000C100 00000003 00F5OOC2 40000DFO 
003C 00000000 00000000 FE040130 80001A5A 



00000000 000058E0 FF050000 00000000 
F0004E30 0C00004B 30001B00 OOCIOOOO 



FF350007 400304E8 FF350001 60030224 
00000300 F5000240 OOODFOOO 00000000 



*Thfs line logs the appropriate information for MPX channel, SEL channel, or Integrated File Adapter. 
** This line displays appropriate logout bytes for MPX -dependent, SEL-dependent, or Integrated File 'Adapter channel checks. 



Figure 37- Edited cnaimci wac^js. i\.cv;ui.u — nuuei j.**o iFart 2 of 2) 
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I PL AND EOD DATA EDITING 

MODEL 145 SERIAL NUMBER 010C15 



SUB SYSTEM ID 

REASON CODE 

CHANNEL TYPE ASSGNMT 



00 - UNKNOWN 
NM - NORMAL 
0000000000000000 



DAY YEAR 
DATE - 132 71 



CUA 

CHANNEL MAP 

HIGHEST STORAGE ADDR 



HH MM SS 
TIME - 22 48 32 



0000 
0000 
0003FFFF 



MODEL 145 SERIAL NUMBER 010015 



SUB SYSTEM ID 

REASON CODE 

CHANNEL TYPE ASSGNMT 



00 - UNKNOWN 
NM - NORMAL 
0000000000000000 



DAY YEAR 
132 71 



CUA 

CHANNEL MAP 

HIGHEST STORAGE AODR 



HH MM SS 
TIME - 22 58 17 



0000 
0000 
0003FFFF 



MODEL 155 SERIAL NUMBER 010009 

DAY. YEAR 



DATE 



133 71 



HH MM SS 
TIME - 05 01 12 



SUB SYSTEM ID 

REASON CODE 

CHANNEL TYPE ASSGNMT 



00 - UNKNOWN 
NM - NORMAL 
0000000000000000 



CUA 

CHANNEL MAP 

HIGHEST STORAGE ADDR 



0000 
0000 
OOOFFFFF 



MOCEL 155 SERIAL NUMBER 010009 



SUB SYSTEM ID 

REASON CODE 

CHANNEL TYPE ASSGNMT 



00 - UNKNOWN 
NM - NORMAL 
0000000000000000 



DAY YEAR 
133 71 



HH MM SS 
TIME - 05 47 47 



CUA 0000 

CHANNEL MAP 0000 

HIGHEST STORAGE ADDR OOOFFFFF 



Figure 38. IPL and EOD Records 
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Chart 08. EREP - Option Handler (Part 1 of 4) 



q? 



m 



C EREP J 



START 



Chart HA 



1 . Set up addressability for the EREP option phases. 
2. Suppress recording on the SYSREC file. 



REOPTION 



Chart HA 



If the operator indicates that he is not going to 
enter any EREP option statements, set default 
options, and go process them. 



If the operator indicates that he will enter option 
statements by cards, turn on the input device 
indicator. 



READROUT 



^ 



mpu 





NO y 


' Device \, YES 




1 


^v Indicator / 
N. on yS 


r 


1 . Tell operator to enter option statement on 
SYSLOG. 

2. Read an option statement from SYSLOG. 




CARDREAD Chart HA 


Read an option statement from SYSIPT. 




















> 


r 







w 
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Chart 09- EREP - Option Handler (Part 2 of 4) 




YES 



V 



CHEKKEY 



Chart HA 



Check the validity of the option statement key- 
word. If it is invalid, print the error message. 



GONOGO 



CHEKMAIN 



Charts HA-HB 



Check the validity of the option \n the option 
statement. If it is invalid, print the error 
message. . 

Save the needed information on the option 
for later reference. 



SUBCHECK 



Chart HB 



1 . Check the validity of the parameters in the 
option statement. If any are invalid, print 
the error message. 

2. Save the needed information on the option 
parameters for later reference. 



08 
READROUT 



ERROR 



Chart HD 



1. 



2. 



If the option statement in error was read from 

SYSIPT, print the first 40 bytes of it on 

SYSLOG. 

Give the invalid option statement message to 

the operator on SYSLOG. 
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Chart 10, EREP - Option Handler (Part 3 of 4) 



ra 



GONOGO 



Chart HA 



1. 



2. 



Ask the operator if he wants to cancel the 

option statements he entered and enter new 

ones. 

If the option statements are to be canceled, 

clear switches and save areas and go to 

restart. — — — — — i— — — — — — 



DEFAULT 



Chart HB 



Set and queue default options. 



SORTER 



Charts HB-HD 



1 . Sort the options in the Priority Queue. 

2. Move the options from the Priority Queue to 
the option queue in the EREP Communication 
Region. 



REOPTION 



V 
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Chart 11. 



3. 



4. 



5. 



EREP - Option Handler (Part 4 of 4) 

** Entered from Charts 08, 10, 13, 19 




NO ^S the option X YES 

queue 

^mpty. 



' r 




EOJ 


Chart HC 


Permit recording on the SYSREC file. 



If the no-clear bit in the EREP Communication 
region is on and the option in the ready position 
of the Option Queue is CLEAR, ready the next 
option in the Queue and return to process it. _ 
Is the SYSREC file Header record valid? 

No 



Print a message on SYSLOG that indicates 

which option is being processed. 

Form the phase name of the phase that will- 

process the option just dequeued. 

Ready the next option in the Option Queue. 



/Fetch EREPEDITA 
VChartl2 J 

(T 



-O 



NOTCLROP 



Chart HC 



Print the invalid SYSREC file header record message 
on SYSLOG. 



Fetch EREPHIST 
Chart 19 



) 



C 



Q— 



( End of Job J 



Fetch EREPCLR 
Chart 19 



") 
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Chart 12. EREPEDIT Root Phase (Part 1 of 3) 



f EREPEDIT ^\ 
\^ (root phase) J 



O 



ENTERSDR 



Chart JA 



Read and analyze the header record for validity and 
type. 



NO 



ENTEROBR 



Charts JA,JB 



1. Load the OBR list, EREPOBR. 

2. Modify the channel program with the OBR header 
address. 

3. Find the logical beginning of the OBR partition. 

4. Store the file beginning address 



OBRREAD 



Charts JB-JD 



1. Read and process the OBR records. 

2. Group OBR records by channel and unit. 

3. Find first CIE and MCR records and store. 

4. When the first 2715 record is encountered the 
root phase performs initialization for 2715 record 
processing. 



T 



EREPEDIT 

(list processor) 

Chart 15 



NO 




T2715 




SDR 

records "\ YES 
present 



1. Load the SDR list, EREPSDR. 

2. Align printer forms and print new page 
header. 



SDRREAD 



Chart JA 



1. Read an SDR record if the SDR partition is 
present. 

2. Analyze the record validity. 

3. Point LSTNDX to the start of the SDR list. 

4. Branch to the list processor. See Figure 23. 



EREPEDIT 

(list processor) 

Chart 15 




NO 



Charts JG, JH 



1. Determines if 2715 error records exist and, if so 

2. Sets switches for the types of logical records 
available for processing. 

3. Sets lower and upper disk addresses for each type 
of record encountered. 



Qp 
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Chart 13. EREPEDIT Root Phase (Part 2 of 3) 







O 



CIEDONE 



NO 




* Called CIB records 
in the Supervisor 



YES 



MCRDONE 



NO 




YES 




6 



YES 



Load EREPIPL 
and process 
1PL/EOD records 



YES 



f Fetch EREP2715 J 



Chart 18 



Chart 1 1 



CIEDCHK 



Chart JE 



Determine if recycling has occurred. 
]. If yes 



1 If no, go to^MCRDONE or CIEDONE 
depending on which record type is 
being processed. 



E> 



Point to first 
MCR record. 



Point to first 
CIE record. 



COMMON 3 



Chart JD 



1 . Prepare to read a record. 

2. Align printer forms and print proper header. 



CIEREAD 



Chart JD-JE 



1 . Read a record. 

2. End-of-file? 
YES 

3. Check if record is a valid CIE or MCR 
record. 



CIEPHASE 



Chart JE- JF 



1 . Generated proper phase name. 

2. Load list into core. 



3) 



Q7J 
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Chart 14. EREPEDIT Root Phase (Part 3 of 3) 





YES 



NO 



6 



CIEOFF 



Chart JF 



1 . If last" data set processed was incomplete, go 
foCIEPHASE. 



2. If the last data set processed contained an in- 
valid record, update the disk address, and go 
to CIEREAD. 



CIEREAD 



AROUND9 



Charts JE - JF 



1 . Check the records for validity and proper 
order. 

2. Was last data set read into input area incom- 
plete? 
YES 



3. If the input area is full, go to the list 
processor. — — — — — — — — — - — 

4. Check if all of the last data set has been read 
in from SYSREC. 

a. If it has not, update disk address and go 
to CIEREAD. 



b. If the last record is complete, go to the 
list processor. 



O 



6 



OP 

CIEREAD 



EREPEDIT 

(list processor) 

Chart 15 



ippha<;f TCLR 



CIEPHASE 
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Chart 15. EREPEDIT Record Lists (Part 1 of 3) 



*15, 16, 17 nn / EREPEDIT \ 
L J I (list processor) J 



The EREPEDIT root phase 
[handles all I/O, contains the 
list processor, and contains the 
mechanism for selecting the 
appropiate list. See Charts 12- 
14 for EREPEDIT root phase. 



EREPSDR 



EREPOBR 



Phase contains lists of constants 
designed for SDR records. The 
list processor uses the specific 
list applicable to the SDR 
record. Record content varies 
for different devices. See 
Figure 24 for the different 
lists available and sample 
records . 



Additional 
Processing 
Phases 



EREPCI30 



Phase contains the list of 
constants used to display OBR 
records . Record format does 
not vary for different devices. 
See Figure 25 for a sample 
OBR record. 



CATALOG NUMBER or 

MCK Chart KC 



Phase contains the lists and 
appendage routines necessary 
to process the Model 30 
channel inboard error records, 
including the logout. The 
channel/unit address is ex- 
amined to determine which 
channel was in error. Only 
the portion of the logout 
describing the failing channel 
is displayed in detail . The 
Model 30 logout for machine 
check records will display the 
logout byte in hex and display 
in detail the CPU byte. See 
Figure 26 part 1 for the record 
format of a CIE record where 
the logout indicates catalog 
number stored. See Figure 
26 part 2 for the record format 
of a CIE record where the 
logout indicates MCK register 
stored . 



Return to 
EREPEDIT 
Root Phase 

Chart 12 or 14 



EREPMC30 



Phase contains the lists and 
subroutines necessary to 
process Model 30 machine 
check records, including the 
logout. See Figure 27 



^ 
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Chart 16. EREPEDIT Record Lists (Part 2 of 3) 




Additional 
Processing 
Phases 



O-* 



EREPCI40 



©-* 



EREPMC40 



Phase contains the lists and 
subroutines necessary to 
process the Model 40 channel 
inboard error records exclusive 
of logout . When the record 
is complete, returns to the 
processor . — — 

See Figure 28. 



©— 



EREPCI50 



Phase contains the lists and 
subroutines necessary to 
process Model 40 machine 
check records exclusive of 
logout. When the record is 
complete, returns to the 
processor. 
See Figure 30. 



15 




EREPEDIT 



EREPLOG1 

and 
EREPLOG2 



&— 



EREPMC50 



Phase contains the lists and 
subroutines necessary to 
process channel inboard error 
records for the Model 50. 
When the record is complete, 
returns to the processor. — — 
See Figure 29. 



V 



Phase contains the lists and 
subroutines necessary to 
process the Model 50 
machine check records. When 
the record is complete, returns 
to the processor. 
See Figure 30. 




15 
EREPEDIT 



EREPLOG3 

and 
EREPLOG4 



PARITY GHECK 
ROUTINE 



Charts KD, KE 



Phases contain the lists and subroutines 
necessary to display the Model 40 
logout for both CIE and MCR Records. 
See Figure 28. 




Phases contain the lists and subroutines 
necessary to display the Model 50 
logout for both CIE and MCR records. 
See Figures 29 and 30. 
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Chart 17- EREPEDIT Record Lists (Part 3 of 3) 




MCR 



EREPMC55 Charts KH,K J 



Phase contains the lists and 
subroutines necessary to pro- 
cess the Model 155 machine 
check error records. When 
the record is complete, 
returns to the processor 



See Figure 38. 



EREPCI55 



Chart KG 




Phase contains the lists and 
subroutines necessary to pro- 
cess the Model 155 channel 
inboard error records . When 
the record is complete, 
returns to the processor. 



See Figure 34. 



EREPCI45 determines the type 
of channel check that occured 
for ERRLOG8. It also con- 
tains the list necessary to 
edit and print CCH records. 
If a partial file is processed 



If a complete file is processed, 
update disk address and exit. 



EREPEDIT 



EREPLOG8 



Phase contains the lists and 
subroutines necessary to dis- 
play the Model 155 machine 
check logout records . 
Handles both complete and 
incomplete data sets. 



See Figure 34 (part 2 of 2) 



EREPEDIT 



EREPMPX 



Phase contains additional 
lists that are necessary for 
EREPCI45. 

Multiplexor channel errors 



Selector or 
blocked multi- 
plexor channel 
errors 



EREPSEL 




Phase contains list 
that is necessary to 
edit and print multi- 
plexor channel errors, 
If a partial file is 
processed — — — 



Phase contains list 
that is necessary to 
edit and print selec- 
tor or blocked 
multiplexor channel 
errors. If a partial 
file is processed! 



EREPEDIT 



CIEOFF 



I ntegrated 

File 

Adapter 



4= 



EREPIFA 






CIEOFF 



CIEREAD 



Phase contains list 
that is necessary to 
edit and print inte- 
grated file adapter 
errors. If a partial 
file is processed — ^ 



G> 



EREPMC45 



EREPMC45 contains the list 
that is necessary to edit and 
print machine check fixed 
logout records. If a partial 
file is processed j 



If a complete file is processed, 
update disk address and exit 



EREPLOG6 
EREPLOG7 
EREP1DG9 



These phases contain the lists 
that are necessary to edit and 
print the machine check 
logout area. If a partial file 
is processed — 



Otherwise 



I 



CIEOFF 
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Chart 18. EREP2715 and EREPASSM 



f EREP2715 J 



EREP2715 



Charts LA-LJ 



EREP2715 prints all the records (in order of error type) for each IBM 2715 
error recorded on SYSREC as indicated by the root phase: 



1. 



2. 



3. 



Picks up the low search limit for the type being processed and 
reads in consecutive 80-byte records, processing each as soon 
as it is read in. 

From each physical record the program picks up any logical 
record(s) of the type being processed and prints them. (See 
Figure 31 for sample output. ) 

When the high disk limit for an error type is reached, the next 
ascending type is processed (that is, steps 1 and 2 are repeated). 
After type 7 records are printed, if there are no type 8-F (area 
station) error records, control returns to the root phase.* 



If type 8-F records do exist, they are printed as encountered, 
and EREPASSM is fetched for area station error summary. — 



C 



Fetch 
EREPASSM 



J 



13 
TCLR 



EREPASSM 



Charts LK- LN 



This phase summarizes area station (type 8-F) errors. It does this (for 
each of up to 4 channel-unit addresses) by area station-device com- 
binations if the limit for the partition limit is not exceeded. 

In a 10K partition, up to 60 area station-device combinations are 
summarized for each channel unit. If this limit is exceeded, 
summarization for the particular cuu is by area station only, and 
this is further restricted to the first 60 area station records. In a 
12K or greater partition, the same restrictions apply except that 
the limit is 100. (See Figure 32 for sample output.) 

EREPASSM returns to TCLR in the root phase upon completion of its 
processing. 



OP 



TCLR 
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Chart 19. EREPCLR and EREPHIST 



( EREPCLR J 



( EREPHIST J 



EREPCLR 



Charts KA-KC 



8. 



If the SYSREC file is on a 2314 disk unit, change 

the clear parameters to clear 20 tracks per 

cylinder and 40 records per track. 

Read and analyze the header record for validity 

and type. 

Save the last CPU ID record on the file. 

Converts saved I PL record to CPU -ID record. 

Clear the SYSREC file. 

Write a new header record on the file. 

If a CPU ID record is in the CPU ID record save 

area, write it in the first OBR record on the 

SYSREC file. 

Move the updated header record to the SDR 

communication region. 



/FETCH EREP ^ 

V enter at OPTION / 



Chart 1 1 



EREPHIST HISTORY TAPE BUILDER Charts MA- MK 



This routine converts records on OBR/MCAR/CCH 
portion of the IJSYSREC file to System/370 variable 
length record format and writes them on tape. 

Detection of errors sets flag bits in the EREP com- 
munications region for the EREP option handler. 
Missing headers, missing or invalid records, and I/O 
errors set error conditions and exit to EREP. ~-"~ — ™ — ■ 



EREPHIST performs the following: 

1 . Reads 80- byte records from SYSREC into the 
input area, 

2. Decides whether a previously built history 
tape is to be updated, or a new tape is to be 
created, 

Converts the particular type record (OBR/SDR, 
teleprocessing, MCAl^CCH, IPL, or EOD) 
variable- length record, and 
Writes the converted record on tape. 



3. 



a 



Fetch EREP 
Enter at OPTION 

Chart 1 1 



) 
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Chart HA, EREP - Option Handler (Part 1 of 3) 
Refer to Charts 08-11. 



*A1 

START 



*#B1»**»*«» 

♦ SET UP * 
ADDRESSABILITY* 

» FOR PHASE AND 
♦ EREP COMM. * 

* REGION » 



»*C1******* 

• INDICATE * 

INITIALIZE 

ROUTINE FOR 

$$BSDRUP 



CHEKKEY X 

*«*«»A5»****« 

♦SCANBLK 

* SCAN TO 

* KEYWORD 



IS REPLY ♦ . YES 



'INUNt' .* 

""♦NO 




X 

C2****. 

IS REPLY *♦. YES 

VALID .* 


x! 


• * 

"♦NO 







\ 






X 


t( 


WS X 










♦♦•B4******»* 






B5 ♦. 


« 


SET WRITE 


* 








ROUTINE TO 




NO 


.* IS ♦. 




GIVE 'ENTER 




. . .* 


KEYWORD .* 


» 


OPTION' MSG 


* 


. 


*. VALID .♦ 


* 




* 


X 


**YES 














*HD * 










* A3^ 
































. 




ERROR 








X 




GOODKEY X 




»**C 4* **♦♦♦*♦ 






**C5******* 


• 


INCREMENT 


• 




* ♦ 




LINK REGISTER 






* MOVE SCAN * 




+4 PAST 






POINTER PAST ♦ 


# 


CNCLREAD 


♦ 




» KEYWORD ♦ 


* 




* 




* * 



SUPPRESS 
RECORDING 
ON SYSREC 



* CLEAR EREP * 

•COMMUNICATIONS • 

* REGION « 

♦♦♦•♦♦♦♦*♦♦♦•*♦♦* 



SET OPTION 

QUEUE PTR 

TO START OF 

OPTION QUEUE 



MOVE 'ENTER 

SOURCE' MSG 

TO OUTPUT 

AREA 



SET 'INVALID 

RESPONSE' MSG 

IN MESSAGE 

WRITER 



•PRINT 'INVALID 

• RESPONSE' MSG 

• ON SYSLOG 



CLEAR OPTION 

AND PARAMETER 

SAVE AREAS 



PUT EDIT 

OPTION IN 

QUEUE 



• E3« 
CONTUE 



SCANBLK 



ASK OPERATOR 
FOR SOURCE 
OF OPTIONS 



READ OPTION 

STATEMENT 
FROM SYSLOG 



END OF 

BLOCK 

ENTERED 



READ OPTION 

STATEMENT 
FROM SYSIPT 



NO 

X 

♦ HD • 

♦ A3* 


F4 *. 

.* IS *. 

.* SCAN PTR *. 

. POINTING AT .♦ 

*. BLANK .* 

"♦YES 


ERROR 

SCANLOOP X 

#»G4******* 

♦ ADD 1 » '. 
♦ TO SCAN ♦ 

* POINTER » 




X ! 

H4* "♦. 1 
.♦ IS ♦ . 

.♦ SCAN PTR *. YES. 
. POINTING AT ...... 

♦. BLANK .♦ 



MOVE OPTION 

NAME TO 

WORK AREA 



♦SET OPTION * 

♦TABLE POINTER* 

♦TO FIRST OPTION^ 

♦ IN TABLE ♦ 



**G5***^^^^ 
♦ SET * 
♦DISPLACEMENT 
INTO OPTION 
♦ TABLE TO 1 



♦ Al» 
NEXTOPTN 



RETURN 



TURN ON 

I/O DEVICE 

SWITCH 



♦ SET SCAN 
POINTER TO 
BLANK IN 
FRONT OF 

♦INPUT AREA 
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Chart HB. EREP - Option Handler (Part 2 of 3) 
Refer to Charts 08-11. 



NEXTOPTN .«. 

Al *. 

.•OPTION 
.* ENTERED= 



IS PARAMETER 
ENTERED = PARAMETER 
IN PARAMETER TABLE 



.» IS *. 

OPTION 
PROCESSED 
. BIT ON . 



» SAVE ADOR OF » 
•OPTION LOCATION* 
• IN TABLE • 



• ADO 1 TO 
DISPLACEMENT 

• INTO TABLE 



••C2«»***«« 

•MOVE TABLE * 

* POINTER TO 
NEXT OPTION 

♦ IN TABLE 



SUBDUPCK 


► *• 






B3 












YES 


.* 


PARAMETER 






ENTERED 


, 


* 


BEFORE 










X 








*•*** 






• NO 


*HD • 








♦ A3* 






. 


















ERROR 






X 





. *HA 


-J2 


»J3 


DEFAULT 


X 

A5* '». 

EDIT 
ENTERED 


'*. 


NO 



SUBRETRN 

»*B4******* 
♦ UPDATE 

• TABLE PTR 
* TO NEXT 

• PARAMETER 









X 


X 








»»*«»D1«»******** 






D2 *. 


* SAVE OPTION » 








•TABLE DISPLACE-* 




YES 


• END 


* MENT AND « 


X...* 


. OF OPTION 


* PRIORITY BYTE * 




». TABLE 


* *G2 * 








X 






• *»»# 


• NO 




*HD * 






* A3* 






* * 


X 










ERROR 




X 




• AL * 


**E1******* 






* CLEAR * 






« PARAMETER * 






* PROCESSED * 






* SWITCH SAVE « 






* AREA * 









#*«»B5*»*****« 

MOVE 

DISPLACEMENT 

OF EDIT IN 

TABLE TO 

SAVE AREA 



MOVE EDIT 

OPTION TO 

QUEUE 



•*«•**•* 



•♦HI******* 

» SET • 

• POINTERS TO • 

* PARAMETER 

SAVE AREAS AND* 

• SWITCHES * 



• TURN ON « 

PARAMETER 
•PROCESSED BIT» 



»*»*#E3********* 

* IF A HIST 

* OPTION HAS 
•BEEN PROCESSED 

* SAVE THE 

* OPTION TYPE 



*G2 
PRIORITY BYTE = 
BYTE 8 OF EACH 
ENTRY IN OPTION TABLE. 



«*G3«*«»**» 

* TURN ON * 
NON-DEFAULT 

PARM. BIT 
IN SWSAVE 

* AREA • 



.» IS *. 

FLIP-FLOP 
SWITCH ON 



*»E4******* 

• UPDATE • 

SHIFT INDEX 

1 BIT TO 

RIGHT 



NO .♦ IS • 
...». SHIFT INDEX 
*. ZERO .* 



##G4******« 
* UPDATE * 
•ALL POINTERS 
* TO NEXT 
* POSITION 



* MOVE * 
•DISPLACEMENT 0F« 
•CLEAR IN TABLE * 

• TO SAVE AREA * 



* MOVE CLEAR 

* OPTION TO 
•PRIORITY QUEUE 



* RESET ALL 
POINTERS AND 

♦ COUNTERS 



• Kl 
SUBLOOP 



FLIP THE 

FLIP-FLOP 

SWITCH 
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Chart HC. EREP - Option Handler (Part 3 of 
Refer to Charts 08-11. 



3) 



ADD 1 
TO SORT 
COUNTER 



»#»#*B1******* 

* CALCULATE 

* VALUE OF 

* INNER LOOP 

* POINTER 
» *B2 



READY 
YES .» 



ALL 

OPTIONS 

PROCESSED. 



HIST • 
OPTION 
•PROCESSED.* 



SECOND 
TAPE TO 
PROCESS 



»«#»D1*««***»* 

EXCHANGE 

DISPLACEMENT 

AND PRIORITY 

BYTES 



#»E1#»«»««* 

• UPDATE * 

* IN-LOOP PTR * 

* TO NEXT 

PRIORITY ENTRY* 



NOSHIFT .*. 

Fl *. 

••IN-LOOP*. 
NO ."POINTER AT 
...*. END OF 

♦.PRIORITY . 
*. QUEUE.* 



♦ YES 



•«G1******* 

* UPDATE * 
•OUT-LOOP PTR 

TO NEXT 
* PRIORITY 

* ENTRY * 



«B2 
INITIALLY ONE 
QUEUE POSITION 
HIGHER THAN 
OUT-LOOP PTR. 



READY NEXT 
OPTION 
IN QUEUE 



B3 *. 
.» IS *. 

CLEAR 
OPTION IN 
. READY . 



C3 *. 

* IS 
CLEAR 
SWITCH 



INDICATE EXIT 

ROUTINE 

TO $$BSDRUP 



MSG 3E16A 

MOUNT 2ND 

TAPE 



PERMIT 

RELOADING ON 

SYSREC 



•***«E2******** 

* MOVE 'BAD 

* SYSREC MSG 

* TO OUTPUT 

* AREA 



r'ES .* BAD 
....*. SYSREC 

*. HEADER 



*«*E3***** 



GOt EOB, 

OR END 

.RESPONSE 



• NO 

X 

• HE » 

* CI* 

READSTART 



PICK UP 

DISPLACEMENT 

IN READY 

POSITION 

OF QUEUE 



*»»»F3*»»****« 

FETCH PHASE 

GENERATED 

ABOVE 



MOVE PROGRESS 
MESSAGE TO 
OUTPUT AREA 



*F4 
8-BYTE NAME 
COMPOSED OF 'EREP* 
AND FOUR-BYTE 
KEYWORD. 



* OUT-LOOP 

PTR AT END 
».0F QUEUE . 



*H2 
IS PRIORITY AT 
OUTLOOP POINTER 
GREATER THAN 

AT INLOOP POINTER. 



PRINT 

PROGRESS MSG 

ON SYSLST 



POINT TO * 
START OF * 
PRIORITY * 
QUEUE * 

" x 




*****J3* 

* READY 

* OPTIC 

* QU 

*»*«K3»< 

* FETCH 

* GENEF 

* ABC 


NEXT 
]N IN 
EUE 


X 

Kl" **. 

PRIORITY***. NO 

QUEUE .* 

EMPTY .* 


*.»»«K2********** 

* INCREMENT TO • 

* NEXT OPTION * 
...X* AND PRIORITY *.... 

* QUEUES * 


( 

PHASE 
IATED 
3VE 
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Chart HD. EREP Subroutines (Part 1 of 2) 
Refer to Charts 08-11. 



»A1**»»»* 
SCANSUB 



•*A2****** 
SCANROUT 



ERROR 
NO .» 



END OF 

OPTION 

.STATEMENT. 



* MOVE SCAN 
POINTER PAST 

* COMMA 



CLEAR 

OPTION 

WORK AREA 



TURN ON 

OPTION 

PROCESSED 

BIT 



»*««*D2********* 
•SETROUTN HD 

♦PUT OPTION AND 

* PARAMETER IN 

* QUEUE 



»»»«*B3*»»*»»»«»* 
» SET MESSAGE * 
•WRITER TO WRITE* 
•FIRST 40 BYTES • 

• OF OPTION * 

• STATEMENT • 



SET TO 

WRITE ERROR 

MESSAGE 



##A5*****« 
SETROUTN 



*.#«*C4**»»»»**» 

* FIND NEXT 

* AVAILABLE 

* SPOT IN 
•PRIORITY QUEUE 



••D4*«***»* 

• UPDATE « 

• PRIORITY * 

QUEUE POINTER 



NO .« IS «. 

...•.PRIORITY BYTE. 
». ZERO .* 



MOVE OPTION 

TO OPTION 

QUEUE 



OPTION 
NAME TOO 
. LONG 



„« OPTION * 
.NAME 8 BYTES 
*. LONG .* 



SET LENGTH 

AND MOVE 
POINTER BY 



• F2« 
READROUT 



OMITTED X 

*»G2***«*»* 
« MOVE SCAN 

• POINTER TO 
• END OF 

* NAME 



»«»#»E4»»»»«**«» 

♦ MOVE OPTION 

♦ AND PRIORITY 

♦ BYTE TO 
•PRIORITY QUEUE 



•READSTAT HE 

♦ READ OPERATOR 
» REPLY 



SETSUBS 

**»*#F5*»«»**»** 

• MOVE BITS 

• TURNED ON IN 
•PARAMETER SAVE 

• AREA TO EREP 

• COMM. REGION 



«G5«»»«« 
RETURN 



• MOVE OPTION 
•NAME TO OPTION 

* WORK AREA 



*K1«**»« 
RETURN 



OPTION *. 


YES 


.* IS ♦. YES 


OMITTED .* 




». REPLY .» 






. 


». VALID .• 


. 












X 




X 


♦ NO 




• NO 


»•**• 








*HA * 




» A3 • 




* H3» 












**** 




CARDREAD 


X 




X 




#*J2**»*««« 




»*»»»J3##«»»»*»»* 








•ERRSUB HE* 




CALCULATE * 








LENGTH OF • 


♦PRINT 'INVALID • 




OPTION NAME • 




* RESPONSE* ON • 








* SYSLOG • 




*********** 




X 

•he" 

• CI* 

READSTAT 
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Chart HE. EREP Subroutines (Part 2 of 2) 
Refer to Charts 08-11, 



WRITREAO 



**A2«*«*«* 
READSTAT 



»»»A4««*»*» 
CALL$$B 



«A5»»**» 
ERRSUB 



WRITE 

MESSAGE 

ON SYSLOG 



GET ADDR OF 

COMMUNICATIONS 

REGION 



PRINT 

MESSAGE 

ON SYSLOG 



*»#»*C4**»****** 

* GET ADDR OF 
•COMMUNICATIONS 

* REGION 

* EXTENSION 



RETURN 



READ 

OPERATOR 

REPLY 



.* WAS *. NO 
REPLY .»... 

•.'CANCEL' .* 



NO .* INPUT ». 
...*. FROM SYSIPT ,• 



FLUSH REST 
OF STATEMENTS 
FROM SYSIPT * 



♦G2****» 
RETURN 



DOES 
EXTENSION 
. EXIST . 



» GET SDR 
•COMMUNICATIONS 
♦REGION ADDRESS 



.* DOES 
X..». SDR REGION 
». EXIST . 



#*##G4»»*»*#»*« 
• SVC 2 
•FETCH $$BSDRUP 



FOR INTERNAL LOGIC 
OF $$BSDRUP, SEE 
LOGICAL TRANSIENTS 
PLM. 
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Chart JA. EREPEDIT - Root Phase 
Refer to Charts 12-14, 



(Part 1 of 6) 



START 



ENTERSDR X 
»*»«»B1«»* 
♦FRSTSTEP 



•INITIALIZE BASE» 
* REGISTERS AND * 
♦SEARCH ADDRESS » 



IS 

HEADER 
VALID 



C2 ». 
.♦ IS *. 

•IT A VALID 

OBR 
«. RECORD . 



.*. 


ENTEROBR X 


Fl ». 


»»F2***«» 


* UNRE- *. 




COVERABLE •. YES 


♦ TURN ON 


I/O .»..X 


• SDR^DONE 


ERROR .* 


* SWITCH 



*»***D3»»*»**»»* 

♦ CHANGE BYTE 
♦COUNT IN 'READ 

♦ HDR RCD' 

♦ CCW TO 43 



SDR 
RECORDS 
PRESENT 



•«*«F3^^*^^ 



♦POINT TO START 
♦OF OBR RECORDS. 
♦CHANGE L.C. IN 
♦ HEADER 



**»#C4********* 

INSERT NEW 

HEADER ADDR. 

CHANGE RECORD 

COUNT FOR 

OBR 2311 



04 ♦. 

2314 

'•NO 



CHANGE 

RECORD 

COUNT AT 

•MODIFY!' 



UNREC. 

I/O 

ERROR 



IS SDR ♦. NO 
RECORO .♦..X 
VALID .♦ 



SVC 4 

LOAD 

EREPSDR 



#F4^»*»^ 
TURN ON 

FIRST 
RECORD 
SWITCH 



• •••Gl********- 

MOVE X'OE' 

•READ KEY 

AND DATA' 

COMMAND INTO 

SECOND CCW 



MOVE HEADER 
RECORD 

INTO 
HDRSAVE 



#«G2*«»»»»» 

♦ TURN OFF 

END OF 

PAGE (EOP) 

INDICATOR 



#»G4*«*«*» 
• INSERT ♦ 

♦ READ DATA 
COMMAND INTO 

• READ HEADER 
•RECORD CCW ♦ 



POINT LSTNDX 

TO START OF 

SDR LIST 



••^•♦♦♦♦♦* 

* TURN OFF • 

• SDR PROCESS » 
SWITCH. TURN ON* 

• OBR PROCESS • 

♦ SWITCH * 


• ♦♦••(^♦♦♦♦♦♦♦♦♦» 
♦NEWPAGE JJ^ 

♦ALIGN NEW PAGE • 

• AND PRINT • . 

• HEADER ' • 




X 

• B4 * 


* J4^ '". 

SDRREAD X 

****»J3««*«****** 
•READREC JJ^ 

•"* READ DISK ♦ 

* RECORD ♦ 


• J4 

JP-E1,F1,G1 
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Chart JB. EREPEDIT - Root Phase (Part 2 of 
Refer to Charts 12-14. 



6) 



*»»»»A1*****»**» 
» CHANGE BYTE 
» COUNT IN READ 
•HDR RECORD CCW 



»*»*B1*»**»*»*»*« 



SVC 4 

LOAD 

EREPLST 



INITRD 

»»»*«C1** 
♦READREC 



. ENTRYPOINT 


. BRANCH TO 


CHART . 


. ROUTDEV 


. EREP1 


JM . 


. DECIDE 


. EREP2 


JN . 


. SDREND 


. EREP3 


JP . 


. DEVSRCH 


1 EREP4 


JM . 


. DASDCHK 


. EREP5 


JM . 


. OBREND 


. EREP6 


JL . 


. CIEEND 


. EREP7 


JM . 


. LISTPROC 


. LISTPRO 


JL . 


. EREP8 


. PRROUT 


JJ . 



.» UNRECOV- * 


YES. 


• . ERABLE I/O . 


*..X. 


*. ERROR .* 










X 


♦ NO 






*JK » 




• F3* 










X 


ERRMSG3 


C4 *. 








YES .♦ IS * 




...♦.OBR DATA BYTE 




*. ZERO .* 





* TURN ON * 
•PHYSICAL EOF « 

= LOGICAL EOF 
• INDICATOR • 



IS 
IT 2715 

OBR 



• NO 
.'«JG-H1,F2 



.* IS *. 

.» FIRST *. YES 
.RECORD SWITCH.*.... 
». ON .• 



* Al* 
EREPLST 



POINT TO 

START OF 

OBR RECORDS 



SETSWTCH 

»*G1»*«***« 
•TURN ON OBR* 

* CIE.AND MCR * 
♦INDICATORS TURN* 

* ON END OF * 
•PAGE INDIC • 



SVC 4 

LOAO 

EREPOBR 



OBRREAD 

••••»J1*» 
•READREC 



UNREC 

I/O 
ERROR 



•••F3*«»*«»* 

SAVE OBR 
DATA BYTE 
TURN OFF 
FOUR LOW 
ORDER BITS 



.» FLIP *. 

FLOP BITS 

EQUAL 

*F4 



ERRMSG1 

LENEPEOF a 

••♦•♦H3«»«*»*»«* 

* TURN ON OBR 
YES * SWITCHES. 

•.... *STORE F.F. BIT, 

* STORE FILE 

• *BEGINNING ADDR 



• F4 
MODIFIED INSTRUCTION 
MODIFIED BY JD-E4, 
COMPARE PRESENT FLIP 
FLOP BIT AGAINST BIT 
STORED AT JB-F5 OR JC-F1. 



»*»**F5**»****** 
•TURN OFF LOWER 

• HALF OF FIRST 

• BYTE. STORE 

• FLIP FLOP 

• BYTE. 



• TURN OFF 
FIRST RECORD 

• SWITCH 



UPDATEO 

••♦•*H5»* 
•UPDATE1 



TURN ON 

END 
OF PAGE 
INDICATOR 



TURN OFF 

ERROR 

SWITCH 



K2 «. 

.* FLIP * 
FLOP BIT 
= STORED 

. FF BIT 



*JC * 


♦ K4 


* B3* 


JC-H2 




JD-A2.D2 




JL-C1,D2,E2 


OBRCHECK 





♦ YES 
ICHKDOBR 
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Chart JC. EREPEDIT - Root Phase (Part 3 of 6) 
Refer to Charts 12-14, 



IS 

RECORD 

CIE 



OBRC 
NO 


HECK .♦. 
B3 * 

.»* IS 

RECORD 
». OBR 





OBRMCCHK .*. 




• ♦. 


CI *. 




C2 ». 






.« IS ♦ . 


.• IS ♦ . 


NO 


.♦ FIRST CIE 


*. RECORD 




•.SWITCH (ONE) 


*. MCR .» 


. 


«. ON 










X 




• YES 


♦ H4 • 


• YES 


» 


CIESTORE X 


01 *. 




•*»*«D2******* 


,♦ IS •. 




» STORE 


.* FIRST MCR ». 


NO 


• FLIP FLOP 


•.SWITCH (ONE) . 




» BIT. STORE 


*. ON .• 




• DISK 






« ADDRESS 



•**E1«****** 

STORE FLIP 

FLOP BIT. 

STORE MCR 

FILE 

ADDRESS 



TURN OFF 

FIRST MCR 

SWITCH 



**E2****««* 

* TURN 

OFF FIRST 

CIE RECORD 

SWITCH 

» (ONE) 



»G1 
JG-G1 
JN-G4 



» GL» 
UPDATE2 



OBRFRST 

»*#»*D3»******»*» 
♦HASH1 JN» 

»"check~and"'sIt~» 
♦bit that indict* 
*specfc unit add* 



»»»»#E3*****»* 

* STORE 

* CHANNEL 
» AND 

* UNIT 

» ADDRESS 



»»F3***»»*« 
* TURN OFF ♦ 

* FIRST OBR 
SW. TURN ON 

* FIRST DIFF^ 
ERENT OBR SW» 



GUARD 
BYTE = 
X'FF» 



C4 *. 
.♦ IS ♦ . 

♦THIS FIRST 

OBR RECORD 

♦.IN GROUP . 



04 ♦. 

.♦ CHAN. ♦. 
AND UNIT= 
TO STORED 

. CC/UU . 



♦ G5* 
ERRMSG1 



UPDATE 

DISK 
ADDRESS 



LOAD LIST 

POINTER 
(LSTNDX) 



♦ JB ♦ 

♦ Hl» 

OBRREAD 



.» CPUID ♦. 
♦ OR 2715 

OR IPL/EOD 
♦. RECORD . 



E5 ♦. 
.♦ IS ♦. 

.♦FIRST DIFF-^ 
.ERENT OBR SW 
♦. (ON B) .♦ 
♦. ON .♦ 

""♦YES 



IS GROUP 

PREVIOUSLY 

PROCESSED 



STORE 

OBR 

ADDRESS 



♦ ♦H5«^«« 
TURN OFF 

FIRST 

DIFFERENT 

OBR SW. 



X 
G2 
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Chart JD. EREPEDIT - Root Phase (Part 4 of 6) 
Refer to Charts 12-14. 



.* PHYSICAL *. 

.EOF = LOGICAL. 

*. EOF .* 



Bl *. 
.» FIRST • . 

DIFFERENT *. NO 

OBR. SW. .*... 

ON .* 



SET 

SWITCH 
HG OFF 



•POINT TO START 

• OF OBR PART. 
» FLIP THE 

• FLIP-FLOP BIT 



• Jl» 

* » 

OBRREAD 



A3 ». 

• IS 

MCR 
SWITCH 



*JE 
* D3* 

MCRDONE 



OBRPOINT 

•••••C2******* 

• POINT TO 

• BEGINNING 

* OF OBR 

♦ FILE 



• C3 


«... 






• ••» X 


CK2715S 


• ». 




C3 •. 






.» 


2715 




ERROR 


*. 


RECORDS . 



TURN ON 

FIRST 
RECORD 
SWITCH 



* Jl» 

OBRREAD 



»»»»D3***»**»*» 
• SVC 1 
•FETCH EREP2715 
» CHART LA 



EOJROUTE 

TCLR 

AROUNDIO 



INITIALIZE 

IPL/EOD 
PROCEDURES 



LOAD 

EREPIPL 

SVC4 



IPLREAD X 
•••••Hl»» 
•READREC 



READ 

DISK 

RECORD 



• EOF 

OR EXTENTS 
♦.EXCEEDED . 







• NO *. 


YES 


•REC. FOUND 




OR UNRECVBLE 


• 


* 


I/O 

•.ERROR.* 


X 










• NO 


• JK • 






• C5» 


















ERRMSG1 


X 
G2**'». 












YES 




ALL 


.....* 




RECORDS 




• 


PROCESSED. 



»*»»E3»«*«*»*» 

FETCH EREP 

ENTER AT 

OPTION HB-A3 



••••F3***** 
* IPLEND 



»#»»B4******»»* 

INITIALIZE 

PHASE NAME 

AND MCR LIST 

ADORESS. RESET 

MODEL NUMBERS 



• MODIFY 
INSTRUCTIONS 

• »H4 



POINTER TO 

FIRST MCR 

RECORD 



MODIFY 

INSTRUCTION 

»G4 



*»B5»»*»*»« 

• MODIFY • 

INSTRUCTION 

LOCATED 

AT JJ-D5 



***C5******** 

POINT TO 

FIRST CIE 

RECORD. PUT 

X'FF' IN 

BYTE 5 



TURN OFF 

UNUSED 
SWITCHES 



• F4 
LA-H2 
LE-F5 
LK-D1 
JK-B3 



C0MM0N3 

•••»»F5**»«»«*« 

• MOVE ADDRESS 

• OF NEW I/O 

• AREA INTO 

• CCW CHAIN 



♦»«G3*»****» 

UPDATE AND 

SAVE 

RECORD 

NUMBER 



• 4 *. 

RECORDS 
*. PRINTED .♦ 



TURN ON 

END-OF-PAGE 

INDICATOR 



MODIFY INSTRUCTIONS AT 

JB-G3 

JJ-B5 



*»G5******* 

» TURN OFF • 

* END OF • 

* PAGE SWITCH 

•TURN ON FIRST* 

* RECORD SW • 



• PRINT 
•ADDRESS. RESET 

• RECORD 



»J4 
JE-B3 
JF-J3 

JM-C3 



**»• 


















• J4« 












CIEREAD X 




••••*J5***»* 


h»*»* 


•READREC 


JJ* 




i — * — * 


• READ 


* 


• DISK 




» REC( 


JRD 


»*•». 



UPADDR X 
♦»»**K3«»» 
♦UPDATE1 



READ 
ANOTHER 
RECORD 



EREP 153 



Chart JE. EREPEDIT - Root Phase (Part 5 of 6) 
Refer to Charts 12-14. 



A4 *. 
.♦ IS • . 

FIRST CIE 
SWITCH 



* PHYSICAL *. NO 

EOF=LOGICAL .*... 
♦. EOF .* 



YES .* UNRE- ♦. 
X...*.COVERABLE I/O.* 
*. ERROR .* 



SET FLIP-FLOP 

BYTE TO 

ZERO 



FLIP-FLOP 
BYTE EQ. 
. ZERO 



M0DIFY3 X 
TYPECK .*. 

El *. 
.* IS * 
.» THIS 
». BRANCH 
•.MODIFIED 
». *K3 .* 



02 *. 

.» IS * 
SEQUENCE 
CHECKED 
. ZERO 



Fl *. 


F2 *. 


.* IS ». 


.♦IS * 


THIS AN *. NO 


NO .* THIS A 


MCR RECORD .*..X.. 


...... CIE ERROR 


*K1 .» 


*. *K1 



D3 *. 
.» IS *. 

.•THIS BRANCH* 
*. INSTRUCTION 
•.MODIFIED .• 
•. *K3 .» 

**»YES 



• RECORD •. 

OVERLAID ON .« 
«. FILE .« 



» TURN OFF 
CIE SWITCH, 
INITIALIZE 
RECORD 

» CHECK 



TURN ON 
PROCESS 
INDICATOR 



• YES 


*JF*» 
• J3* 

UPDATE3 




»YES 






X 


X 




GUARDCHK . 
H2 

NO .»* I. 

...*. GUARD 

• . X' 


< 

BYTE .» 
: F' .• 



F3 •. 

• ARE * 

MODEL 

NUMBERS 

EQUAL 



♦GENERATE PHASE 

♦ NAME, LOAD 

♦ ADDRESS OF 

♦ NAME IN REG 1 



ZERO WORK 

REG, PICK UP 

UPDATE, AND 

STORE RECORD 

NUMBER 



REG, SAVE 
RECORD NUMBER 



BASE THE 

RECORD NUMBER 

ON 5 



♦ ARE 

RECORDS I 
♦. ORDER 



CIE2CHK 

»»E5****«« 
• POINT TO • 

♦ ADDRESS OF ♦ 
• ERROR MESSAGE 

• ROUTINE ♦ 



* F5 ♦.. 

CIE1CK * . 



FIRST 
RECORD IN 
. FILE 



RECORD 

NUMBERS 

EQUAL 



.♦ LAST ♦. 
NO .♦ RECORD OF 
...*. CIE/MCR 

*. RECORDS . 



»»**J2**»*»*** 
LOAD ADDRESS 

OF MACHINE 

TYPE ROUTINE 

IN BRANCH 

REGISTER 



K2 ♦. 
.♦ WAS *. 

.♦ LAST DATA ♦. YES 
•SET INCOMPLETE.*.... 



♦ K3 
MODIFIED BY 
INSTRUCTIONS AT 
JD-C4.E4. 



GO TO ADDR IN BRANCH 
REGISTER, EITHER— 
. ERRMSG1, JK-C5 
. TYPEMACH, JF-B3 



MAKE RECORD 
NUMBERS 
UNEQUAL 
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Chart JF. EREPEDIT - Root Phase (Part 6 of 6) 
Refer to Charts 12-14. 



•»»»B1»»»*«***» 

SAVE AND 

UPDATE RECORD 

ORDER 

COMPARAND 



CI *. 

.* DOES *. 
•THIS RELOAD*. 

FILL INPUT . 
*. AREA .» 



.* IS ». 

» CPU A 
SYSTEM/370 



B2* 



CIERESET X 
»*»»*B5*»* 
•CKNEWPAG 



STORE UPDATED 
RECORD ORDER 
COMPARAND AND 
DECREMENT OLD 



«*»»«F1**»»»**»»* 
•MOVE FIRST FOUR* 
•BYTES OF INPUT • 
•BUFFER TO FIRST* 
» FOUR BYTES OF • 
• INPUT AREA • 



«*»*GL********* 

MOVE REST OF 

RECORD TO 

CURRENT 

LOCATION IN 

INPUT AREA 



CIEOFF 

««C3******* 

• RESET * 
* PROCESS AND * 

» TURN ON FIRST 
» CIE RECORD * 

* SWITCHES * 



YES .* HAS LIST * 
...♦.POINTER BEEN 
*. LOADED .» 



• RESET • 




* I/O • 




* SWITCH * 




* * 




X 








E3 «. 








.« IS «. 


YES 


•FLIP-FLOP BYTE.* 




«. ZERO .• 










X 


• NO 






*JE 




« D3 












CIE1 


X 




*»F3**«***» 




♦ » 




* TURN OFF » 




* LIST PROCESS * 




* SWITCH • 








*•••*****•• 





IF NEW PAGE 

NEEDED, SKIP 

TO IT 



IF NEW PAGE 

NEEDED, SKIP 

TO IT 



**C5******* 

* RESET * 

* PROCESS AND • 
TURN ON FIRST 

* RECORD * 

* SWITCHES * 



* RELOADS *. NO 
OF DATA SET .*... 

*. ALREADY .* 
PROCESSED 



LOAD 

LIST 

POINTER 

(SETNDX) 



* C3« 
LISTPRO 



*G2 
JE-FL.F2 
JE-H4.J5 



* RESET 
SEQUENCE 
COUNTER TO 
ZERO 



.* COMPLETE 

. DATA SET 

«. READIN 



RESET 

SEQUENCE 

COUNTER 

TO ZERO 



H3 ». 
.* IS ». 

.» LAST ». 

♦PROCESSEO DATA. 

♦SET INCOM-.* 

•.PLETE.* 

"*NO 



UPDATE3 

•»»*«J3»» 
•UPDATE1 



* J5* 

CIEREAO 
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Chart JG. EREPLST (Part 1 of 2) 
Refer to Charts 12-1**. 



*A1*»»«»* 
EREPLST 



2715 

ERROR 
RECORD 



»#C1***»*»» 

• SET SWSP « 
♦TO SHOW 2715 * 

•ERROR + PROCESS* 
•LEFT SIDE OF ♦ 

• RECORD • 



*C2 
JH-B5,C2iC4,Dl, 
G2.H1 



SKIP1C 


.*. 




A3 ♦ . 






YES .♦ 


BSC 




ADAPTER 




ERROR 






X 




• *«*« 


• NO 


• JH « 




* Al» 












YES4 


X 


SKIP1B 






B3 ». 




» 


YES .* 


2740 




ADAPTER 




ERROR 






X 




«*** 


• NO 






• G5 • 


. 












X 


SKIP1A 






C3 ♦. 






.* 


MPX 




ADAPTER 


*. 


ERROR 



.« MPX «. 

• LIMITS 

PREVIOUSLY 
«. SET 



INITIALIZE 

LOW AND HIGH 

DISK LIMITS 

FOR MPX 



•SET ON SWITCH* 

FOR LIMITS 
» SET • 



THIL02 

*«##*B5 ******** 
» ALTER LOW 
« OR HIGH DISK 
» LIMITS IF 
* NECESSARY 



INITREG 


< 








YES1 


.*. 








* El * 




»«**«D1*»******** 








D3 *. 












* INITIALIZE 










.* 2790 *. 








*•»» 




• REGS TO 










* LIMITS • 


. YES 










* PROCESS LEFT 


t 






» 


PREVIOUSLY 
*. SET .» 














•SIDE OF RECORD 






































































•NO 


































































« El *.. 




I* 


























* C, 




»»•* 


























L00P7 X 










X 




THIL01 


X 




•**««E1********** 






*«**«E3*****«**** 






• INCREMENT 


* 






• 


INITIALIZE 


• 


* 




ALTER LOW 


• 


•POINTER TO NEXT* 








LOW AND HIGH 






OR HIGH DISK 




• (OR FIRST) 










DISK LIMITS 








LIMITS IF 




•4-BYTE LOGICAL 










FOR 2790 








NECESSARY 




♦ REC0 £?__ 


* 






* 




• 


• 






« 
























X 

# # 




X 


X 








.*. 






X 








» El * 




Fl ♦. 




F2 *. 






»*F3»»»*»«» 
















.* RIGHT *. 






• • 












.**7 LOGICAL** 


YES 


.* SIDE OF *. 


YES 


* SET ON • 










•. RECORDS 




•.ERROR RECORD . 






SWITCH FOR 












♦. DONE .* 




». DONE .« 




• LIMITS SET • 




















« * 


















X 




*•»»****»«* 












• NO 




• NO 


•JB • 

• E4* 

* ♦ 




X 












X 






RETN2715 


* « 












TOO .*. 




X 






* El • 




THIL03 






Gl •. 




»»G2«****** 














.* *. 




* TURN OFF ♦ 














ALTER LOW 




.• DISK • 


YES 


* PROCESSING » 












OR HIGH DISK 




♦. ADAPTER 




• LEFT SIDE 














LIMITS 'IF 




*. RECC 


)RD .* 




* SWITCH * 












* 




NECESSARY 


* 



*D5 
RECORD TYPES ARE IDENTIFIED 
BY THE HIGH ORDER 4 BITS 
OF THE FIRST BYTE IN EACH 
LOGICAL (4-BYTE) RECORD. 
SEE FIGURE 33 FOR TYPE 
CODES AND MEANINGS. 



**«#«H2********* 

• INITIALIZE 

• REGS TO 

• PROCESS RIGHT 
•SIDE OF RECORD 



X 
El 



AREA 
STATION 
ERROR 



H3 *. 

♦ DISK • 
ADAPTER 
LIMITS 
ALREADY 

*. SET .» 

**N0 



»**«J3**«*»*«* 

INITIALIZE 

LOW AND HIGH 

DISK LIMITS 

FOR DISK 

ADAPTER 



THILOO 

*»*#* J 4# *#»»*#» 

* ALTER LOW 

* OR HIGH DISK 

* LIMITS IF 

* NECESSARY 



G5 *. 

.* 2740 *. 
* LIMITS 

PREVIOUSLY 
*. SET 



•*«*H5******** 

INITIALIZE 

LOW AND HIGH 

DISK LIMITS 

FOR 2740 



TURN ON 
SWITCH FOR 
LIMITS SET 



X 




YES8 








Kl *. 












SPECIAL 


». 


YES 


CODE 7X 






ERROR 
















X 


• NO 




• JH • 

• F1«YES7 



TURN ON 
SWITCH FOR 
LIMITS SET 



156 DOS System Service Programs 



Chart JH. EREPLST (Part 2 of 2) 
Refer to Charts 12-14, 



Al *. 
.» ANY «. 

•ADDITIONAL 

BITS SET 
• . ON 



Bl ♦. 
.• BSC ». 

* LIMITS 

PREVIOUSLY 
*. SET 



•INITIALIZE LOW 
* AND HIGH DISK 
•LIMITS. FOR BSC 



THIL04 

• ALT£R LOW OR 

• HIGH DISK 
» LIMITS IF 

• NECESSARY 



A4 «. 
.* AREA •. 
• STATION 

LIMITS PRE- 

». VIOUSLY . 

♦. SET .* 

'•NO 



INITIALIZE 

LOW AND HIGH 

DISK LIMITS 

FOR AREA 

STATION 



TURN ON 
SWITCH FOR 
LIMITS SET 



»**»B5»*»««»** 

ALTER 

LOW OR HIGH 

DISK LIMITS 

IF NECESSARY 



TURN ON 
SWITCH FOR 
LIMITS SET 



L00P7 



Fl •. 

.• 7X •. 

• LIMITS 

PREVIOUSLY 
». SET 



INITIALIZE 

LOW AND HIGH 

DISK LIMITS 

FOR 7X 
ERROR TYPE 



ALTER LOW OR 
HIGH LIMITS 
IF NECESSARY 



TURN ON 
SWITCH FOR 
LIMITS SET 
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Chart JJ. EREPEDIT - Call, Read, and New Page Subroutines 
Refer to Charts 12-14. 



**A1«**»*» 
CKNEWPAG 



»#A2»*«* 
PRROUT 



NEW 

PAGE 

.INDICATED. 



«C1«»»»» 
RETURN 



•A3»*««** 

READREC 

*H3 



READREC X 

»#*»»B3»»*»««*« 

* LOAD OTF 

* ENTRY POINT 
» INTO 

* REGISTER 1 



ZERO RECORD 
COUNTER 
MOVE IN 

HEADER *C4 



BLANK OUT 

OUTPUT 

AREA 



«C4 

LENGTH CODE AND 
HEADER TITLE CAN 
BE MODIFIED BY 
INSTRUCTIONS ON 
JA AND JC. 



TURN OFF 

NEW PAGE 

SWITCH 



UPDATE 
LINE 
COUNT 



#E2***»» 
RETURN 



*F2 
PRROUT ROUTINE 
PRINTS A LINE 
ON SYSLST. 



.* SDR » 
*. DONE SWITCH 
*. ON .» 



♦TURN OFF BIX ° 

* OF INPUT 

* AND BUFFER 

* AREAS 



«*»«E4*««*« 
SVC 7 
WAIT 



MOVE HEADER 
MODIFIED BY 
INSTRUCTION 
AT JD-B5 TO 
PROUT AREA 



PRINT A 
LINE ON 
SYSLST 



**»F5*»**»* 

CHANGE 

I/O CHAR 

FROM X'F1« 

TO X'40« 




PRINT A 
LINE ON 
SYSLST 



X 

#*«**H5**«*** 
•PRROUT 

* prTnt A 

* LINE ON 

* SYSLST 



»J5*»*»* 
RETURN 
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Chart JK. EREPEDIT - Disk Address Update, Open Files, and Error Message Subroutines 
Refer to Charts 12-14. 



*«*A1«»«*»» 
UPDATE1 
»K5 



ZERO WORK 

REGISTER 

INITIALIZE 

POINTER 



.» TRACK 

*. COMPLETELY 

». READ 



•REDUCE POINTER 
•BY ONE TO HEAD 

• NUMBER, RESET 

• RECORD NUMBER 

• TO X'01' 



RESET TRACK 

NUMBER TO 

X'OO' 



»«*»*G1«*«*»*»*« 
•REDUCE POINTER 

• BY TWO TO 

• CYLINDER 

• NUMBER 



*«A2»*»**» 

FRSTSTEP 

•Kl 



FRSTSTEP 

#****B2>******** 
•SAVE REGISTERS 

♦ 2-5. LOAD 

• AREA ADDR. 

* AND COMM. 

• REGION ADDR 



GET 
COMREG 
ADDRESS 



GET PUB 

ENTRY FOR 
SYSREC 



E2 *. 

2314 

'•YES 



D3* 



ERRMSG X 

»«B3«»««»*» 
• TURN ON » 

♦ BAD SYSREC • 
•FILE SWITCH IN 

* EREP • 
» COMREG • 



» D4» 
ERRMSG2 



SET SDR 
RELOAD 
INDICATOR 



»**# A5 »«»#•»♦•» 




• ERRMSG3 


* 






» # 




*• ». . 




♦ E4» 








ERRMSG3 X 


•»B5«*«»«»» 




» TURN ON OBR • 


•INITIALIZATION 


• SWITCH » 


* * 



» F3« 
# » 

EOJROUTE 



POINT LIST 
POINTER TO 
ERROR LIST 



ALIGN FORMS 

AND PRINT 

HEADER 



**»G2»«»«»»« 

MODIFY 

HEAD AND 

READ CHECK 

FOR 2311 



•E3 

ERRMSG HANDLES 

ALL ERRORS ON THE 

RECORDER FILE AND 

WRITES THE ERROR 

MESSAGES. 



JB-A4.A5 
LJ-B3.C3 
LN-B1.C1 



MODIFY 

INSTRUCTION 

AT 

• JQ-C4 • 



»G5 

JB-F2.G2 

JC-B4.H4 

JD-F2 

JG-A1 

JH-A1 

JE-B1,C1,H2 



UPDATE 

DISK 
ADDRESS 



SVC 2 

OPEN 
SYSREC 



•♦Jl**«»«*» 

RETURN TO 

CALLING 

ROUTINE 



• Kl 
THE FRSTSTEP 
INITIALIZATION 
ROUTINE OPENS 
FILES AND CHECKS 
LINE COUNT. 



*«»«J2»»««»*««» 

ACCEPT 

UNRECOVERABLE 

I/O 

ERRORS 



»*»«»K2«»**»«»»» 

* LOAD 
•COMMUNICATIONS 
•REGION ADDRESS 

• INTO 

» REGISTER 1 



• GET 

• COMREG 
« ADDRESS 


* 

* 




X 

J3**'». 
.» IS ». 

.» LINE « 
*. COUNT EQUAL 
*. TO 51 .» 


. YES 


•*J4»»*»»»» 
* MODIFY 
•INSTRUCTIONS 
..X* AT JP-El 
• AND JL-Cl 


'•NO 




: 


Ix 






X 

•*#»K3**«»»»»* 






• RETURN 


* 





• K5 
UPDATE1 ROUTINE 
UPDATES DISK 
ADDRESSES. 
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Chart JL. EREPEDIT - OBR Record End, Function Select, and Error Exit Subroutines 
Refer to Charts 12-14. 



* OBREND 

* »B2 



UPDATE SEARCH 
ADDRESS. ZERO 
OUT WORK REG 
UPDATE RECORD 
COUNT 



A2 






. 




»A5 


JF-C4, 


DS 


E5 






JM-B5,C5,D5 


JC-H3 










JQ-G1,H2,C3,G3,H3,J3 


JK-E5 






LSTRTN X 




JQ-G4,J5 


JM-G4 






*****A3***»****** 




JR^Cl f Dl,E3,F3,J3,G5 


JM-J3 






* TRANSLATE » 


»**«A4 ********* 


JS-G1,G2,E3,F4,E5 


JM-J4 






* LENGTH » 
•INDICATOR TO A * 


* LISTPRO * 


JT-F2,J2,C3,H4 


JM-J5 






» *K2 * 


JU-C2.D2 


JN-D1 






♦ LIST POINTER « 






JU-G1 






* (LSTNDX) INC • 






JU-G2 













UPDATE LIST 
POINTER 
(LSTNDX} 



CI *. 

* LINE 
COUNT 
USED 
*F2 



» A2» 
LISTPRO 



#E2******* 

TURN ON 

END OF 

PAGE 

INDICATOR 



* Jl* 

OBRREAD 



*F2 
MODIFIED BY 
INSTRUCTION 
AT JK-C4. 



GET OP CODE 

LENGTH FROM 

LSTNDX 



*«*«*D3********** 
♦STORE LENGTH AS* 

* DISPLACEMENT * 

* VALUE INTO * 

* FUNC. SUBRTN * 
♦OPLST AT BYTE 1» 



»»»**E3** »*#**»* 
» STORE LENGTH 
» INDICATORS IN 
•INSTRUCTION AT 
» BYTE 2 TO 
» UPDATE LSTNDX 



El X 
••**»F3********* 

•LOAD WORKREG 1 

• WITH S^CON OF 

• SELECTED FUNC 

• SUBROUTINE 
» FROM OPLST 



«C5****** 
ERREXIT 



• TURN ON * 
•CLEAR SWITCH 

IN EREP COMM 
• REGION 



SVC 

PRINT MSG ON 

SYSLOG 



#F4**** 
SVC 7 
WAIT 



•»»G3******* 

BRANCH TO 

SELECTED 

SUBROUTINE 



*K2 
LISTPRO SELECTS 
PROPER FUNCTION 
SUBROUTINE AND 
UPDATES THE 
LIST POINTER. 





G4 *. 






##»*#G5********** 




.* IS » 






•PRROUT JJ» 




* OBR INIT- 




YES 






IALIZATION 






* print" * 




*. SWITCH 






« MESSAGE ON * 




*. ON .* 






* SYSLST * 








X 






»NO 




»JB • 

* H5« 

• * 






X 




UPDATEO 












X 




H4 ». 






•*H5******* 




.* SOR * 






* TURN ON * 


YES 


• PROCESS 






« NEW * 


• • .* 


SWITCH 




* 


* PAGE * 




*. ON 


» 




» SWITCH * 










* * 


X 












• NO 








•JP • 










• Bl« 


. 








• » 










* 










SDREND 


X 






X 


CEREP3) 


J4**"». 
.♦ OBR * 






.*. 
J5 ». 


YES 


• PROCESS 




YES .« IPL/EOD *. 




SWITCH 




* . . 


*. RECORDS .* 


# 


• . ON 


• 


. 


«.PROCESSEO.» 












X 






X 




**•• 






*•**# *NO 








»JD • 


• Bl * 






* K3» 




X 






X 














•JF • 




UPADDR * * 




• D5* 






♦ G4 * 
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Chart JM. EREPEDIT - Subroutines 
Refer to Charts 12-14. 



»A1****» 

EREP4 

•Kl 



INCREMENT 

•LSTNDX' 

BY 4 



EREPl X 

•••#»B2*«»«*«»«* 

* LOAD SDR 

* LIST POINTER, 
•SAVE 'SDRCHAR' 

* IN 'CHAR* 



EREP7 

*»»»»B j** 
»UPDATE1 



•MOVE 'OBRTYPE' 
•INTO COMPARE + 

• END FIELD. 

• MOVE OBRCHAR 
•TO 'CHAR-FIELD 



••C2*»*»««* 

* MODIFY • 

INSTRUCTION 

LOCATED 

AT JM-F2 



••C3******« 

• MODIFY • 

•EOP« 

END OF PAGE 

INDICATOR 



*D1 
EREPl IS THE 
DEVICE SEARCH 
ROUTINE FOR SDR. 



•••02***»**« 

ZERO WORK 
REGISTER 
INITIALIZE 
INDEX 
REGISTER 



COMLOOP 

*»»«*E2»**»*»» 

* ESTABLISH 

* NEW ENTRY 

* POINT INTO 

* DEVICE 

* LIST 



»A5»»*»* 

EREP5 

• F5 



• E3 
EREP7 

CIE RECORD 
END ROUTINE 



• F3 
MODIFIED BY 
INSTRUCTION 
IN BLOCK 
JM-C2. 



• IS • 

DEVICE 
•UNSUPPORTED* 



IS 

DEVICE 

TP 



E4 ». 

• IS • 

DEVICE 

7 TRACK 

TAPE 



»»F4»*»*»*»* 
MOVE A 
PRINTABLE 

•7MNT0 

PRINTOUT 

AREA 



IS 

DEVICE 
DASO 



IS *. NO 
RECORD .•..X 
OBR .♦ 



• D5» 



•MOVE COMMENT TO* 
•PRINTOUT AREA. ♦ 

• PUT DASD » 

• ADDRESS IN ♦ 
•PRINTABLE FORM • 



* Bl« 

* * 

EREP2 



.X. 
X 

*JL * 



*F5 

EREP5 

DISPLAY DASD 
DEVICE ADDRESS 
IF OBR RECORD. 



D1050 
EQUAL TO 
. ZERO 



PICK UP 

ENTRY LENGTH 

AND PUT IN 

WREG2 



*K1 
EREP4 DEVICE 
SEARCH ROUTINE 
FOR OBR. 



•»»H2**»»*»* 
PICK UP 

ENTRY 

LENGTH 

AND PUT IN 

WREG2 



•SAVE DISPLACE- • 
•MENT FOR LIST. * 
•PICK UP COMMENT* 
• LENGTH + TJE- • 
•CREMENT BY ONE * 



MOVE 
COMMENT 
TO PRINT- 
OUT AREA 



G4 ♦. 

.* CHECK *. 

BOTH .* FOR BURST *. MIXED 

*. AND SWITCH- .* 

*. ABLE .* 



»*»J3****«»»* 

MOVE BOTH 

COMMENTS 

TO PRINTOUT 

AREA 



•**J4******* 

MOVE 

SWITCHABLE 

COMMENT TO 

PRINTOUT 

AREA 



***J5******* 

MOVE BURST 

COMMENT 



.X.X.. 
X 

• JL • 
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Chart JN. EREPEDIT - EREP2 and HASH Subroutines 
Refer to Charts 12-14. 





• 


BRANCH TABLE 




.DISP 


. SDR LIST LABEL. 


*»»»A1»»»*****» 
* EREP2 * 


. 


. UNTCON 


« »G1 * 


. 8 


. TAPECON 




. 16 


. DASDCON 


**♦* 




. 24 


. micrcon 


*• *• 


. 32 


. TPCON 


* Fl* 


. 40 


. NOP 


EREP2 X 


. 48 


. UNSPCON 


•CLEAR WORK REG * 
* LOAD * 


. 56 


. CONSL , 


» DISPLACEMENT « 
* INTO WORK » 


. 64 


. RDCON 


* REGIS! 


rER 1 » 


. 72 


. CARTAPE 



»***ci********« 

DISPLACEMENT 
+ BRANCH TABLE 

LIST ADDRESS= 
CORRECT SDR 
LIST LABEL 



» FIRST 
OBR 
RECORD 
»G5 



#*C4«*««»*« 
TURN OFF 
FIRST OBR 

RECORD 
PROCESSED 

SWITCH 



#»C5««*»»«* 

RETURN TO 

CALLING 

ROUTINE 



*»»»*D1»*»*»*»»»« 


«D2 


» BRTBLE *D2 » 


USE ABOVE CHART 




TO CALCULATE LABEL 


* LOAD SDR * 




♦LIST LABEL INTO* 




* 'LSTNDX' * 





* C3* 

* * 

LISTPRO 



*F1 
JM-B4 
JM-C4 
JM-D4 



ZERO WORK 

REGISTER 

ALIGN ADDR 

ON HALFWORD 

BOUNDARY 



♦•*F4««»*»»«» 

DIVIDE UNIT 

ADDRESS BY 

8. STORE AND 

TRANSLATE 

RESULT 



*E5 
TURNS ON A BIT TO 
CORRESPOND TO THE 
CHANNEL AND UNIT 
ADDRESS TO INDICATE 
THAT A GROUP OF OBR 
RECORDS HAS BEEN 
PROCESSED. 



EREP2 DETERMINES 
WHICH SDR LIST 
TO PROCESS. 



RECORD 


«. 


YES 


PROCESSED 






BIT 






». ON .« 










X 


»N0 




«JC « 
* G2» 

UPDATE2 


X 






»H4«**»»*'> 




TURN ON 






RECORD 






PROCESSED 






BIT 


* 





*G5 
MODIFIED BY INSTRUCTION 
AT BLOCK JN-C4. 



RETURN 

TO CALLING 

ROUTINE 
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Chart JP. EREPEDIT - EREP3 and SDRCLEAR Subroutines 
Refer to Charts 12-14. 



EREP3 

•SDRCLEAR JP 

* ZERO THE SDR 
•COUNTERS IN AN 

• SDR RECORD 



****C1**«**»» 

ZERO WORK 

REGISTER 

UPDATE 

RECORD 

COUNT 



SDRCLEAR 

****#B3***«*»*«* 
•MOVE 'INPUT 1 IN 

* TO FIRST 8 
•BYTES OF IOOUT 
•ZERO NEXT BYTE 

♦ OF IOOUT 



**»C3*«*»»*« 

SHIFT DATA 

IN IOOUT 

RESTORE 

GUARD 

BYTE 



•UPDATE! 


JK* 










UPDATE 






DISK 


* 


• 


ADDRESS 


* 




X 




NOP 


El* **. 






.• IS • 




YES 


* LINE 






CONFUSED 


• * 



♦ E2 
MODIFIED BY 
INSTRUCTION 
AT JKtJ4. 



♦ MODIFY ♦ 

READ HEADER 

CCW TO 

WRITE 



SVC 

CLEAR SDR 

RECORD 



Fl •. 
.» HAVE •. 

.• 3 SDR • 

.RECORDS BEEN 
•♦PROCESSED.* 



»*G1«*«»*»« 

TURN ON 

END OF 

PAGE 

INDICATOR 



!x 








X 

F3* "*. 
* *. 
I/O ». 


NO 


.... F „........ 


" 






• WAIT • 





UNRE- 
COVERABLE 

I/O 
•.ERROR.* 



**H3*««««*» 

• RETURN • 
•CCW (MODIFIED* 

•AT BLOCK JP-D3)« 
* TO READ-HDR ♦ 

• RECORD * 



*J1 
SDR RECORD 
END ROUTINE. 



«J2 

ZEROS THE SDR 
COUNTERS IN 
AN SDR RECORD. 



****J 3 »*•»****• 

RETURN 

TO MAIN LINE 

PROGRAM 
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Chart JQ. EREPEDIT - Function Subroutines (Part 1 of 5) 



»A2****«* 

OPASTRK 

*C2 



MOVE A 

BLANK (X'40«) 

INTO IOOUT 



*B2»**««* 

MOVE A 

*(X'5C) 

INTO 

IOOUT 

♦C2 



»»»C1*»«**»* 

PROPAGATE 

CHARACTER 

THROUGHOUT 

TOTAL 

10 AREA 



*C2 
OPASTRK 

MOVES A LINE OF 
ASTERISKS TO 
OUTPUT. 



«««B3******** 

LOAD INDEX 

POINTER AND 

ADD ONE 

TO OUTPUT 

POINTER 



»**C3*»*«**« 

LOAD 

ADDRESS 

IN LSTNDX 

INTO PROUT 

REG 



*«A4****»* 

OPMVCHEX 

♦ K4 



* ZERO WORK 

* REGISTER 
•ALIGN BOUNDARY 

* TO HALF-WORD 



INSTRUCTION MODIFIED 
BY INSTRUCTIONS AT 
JK~J5 AND JK-C4. 



.* HAS *. 

.•INSTRUCTION*. 
.BEEN MODIFIED. 



»**«»C5********** 

• POINT TO ♦ 
» SEEK ADDR. * 

• INSTEAD OF * 

• DATA FOR * 
•TRANSLATE FIELD* 



• A3* 
LSTRTN 



*D2 
OPINDEX 
INCREMENTS 
OUTPUT 
POINTER. 



»»*»D 4* ******** 

GET ADDR. OF 

FIELD TO BE 

UNPACKED 

GET LENGTH OF 

INPUT DATA 



*E1 


*E2 


OPBLNK 


OPPRINT 


FILLS PRINT OUT 


PRINTS 


AREA WITH BLANKS. 


A LINE. 



»E3****** 

OPPRINT 

*E2 



#*«*E4********* 

UNPACK FIELD 

GET LENGTH OF 

FIELD FOR 

EDITING 



* OPBACK 



OPBACK 

»»***G1******** 

* REPOSITION 

* PRINTOUT 

* POINTER TO 

* BEGINNING OF 

* OUTPUT AREA 



OPPRINT X 

*»*«*F3****** 
♦PRROUT 

*"" PRINT 
* MESSAGE 



OPMVCOM 

*»»»»G2******* 

* GET 

* ADDRESS OF 
« COMMENT 

* CLEAR WORK 

* REGISTER 



»*#*«H2********** 
•GET INSTRUCTION* 

* LENGTH-1 * 

* MOVE COMMENT * 

* TO PRINTx * 

* OUT AREA * 



*E5 
OPMVCCTR 
CONVERTS SDR 
COUNTERS TO 
DECIMAL AND 
PUTS THEM IN 
PRINTABLE FORM 
IN OUTPUT. 



END 

OF 

PAGE 



PRINT HEADER 

AND ALIGN 

FORMS 



*«**»G4********** 
•TRANSLATE INTO * 

* PRINTABLE * 
♦CHARACTERS MOVE* 

* CHARACTERS TO * 
♦PRINTOUT FIELD * 



OPMVCCTR 

**#««G5 ********* 

* ALIGN LSTNDX 

* ON HALFWORD 

* BOUNDARY. GET 

* DISPLACEMENT 

* GET FLO ADDR 



*«»»«H5********** 
•PICK UP COUNTER* 
•AND CONVERT TO * 

• DECIMAL. PUT * 
*X'OF« ON END OF* 

* COUNTER VALUE » 



• • 


••*J5*»****»*»* 




UNPACK AND 






MOVE TO 






PRINTOUT 






AREA 




*# 




' * 



*K2 
OPMVCOM 
MOVES 
MESSAGES 
TO OUTPUT. 



♦ A3* 
LSTRTN 



OPMVCHEX 

UNPACKS AND MOVES 

A FIELD TO OUTPUT. 



164 DOS System Service Programs 



Chart JR. EREPEDIT - Function Subroutines (Part 2 of 5) 



»»»*A1»**»*»**» 


»»»»A2********* 




» OPEXIT 


OPNONO * 


• «D2 


«E2 • 


*•»•«»•••*•*«•** 



•«»*A4* ******** 


OPMVCBT 


OPMVCBT * 


EOITS A BIT AS A 


*A5 * 


ONE OR ZERO OR 




EDITS THE ENTIRE 
BYTE. 



OPNONO 

»****B1***»****** 
•PUT FIELD ADDR * 
♦INTO WORK REG. * 
•CALCULATE FIELD* 
♦ ADDRESS. GET * 
•LENGTH OF FLD-1* 



**»#B2***«**** 

MOVE BRANCH 

ADDRESS FROM 

LSTNDX TO 

BRANCH 

INSTRUCTION 



OPMVCBT 

*»*»»B4* ******* 

* ALIGN LSTNDX 

* ON HALF WORD 
» BOUNDARY. 

« GET FIELD 

* ADDRESS 



*B5 
OPBITS 

EDITS A BIT STRING 
BIT BY BIT. 



CI *. 

* IS 
FIELD 
ZEROS 



*D1*«»»* 

MOVE 

FIELD 

TO 

OUTPUT 



*** 


»C2******** 

EXIT 


* 


IU 


SPECIFIED 
ROUTINE 





C4 *. 

.* IS ». 
* ENTIRE 

BYTE TO BE 
». EDITED . 



• 02 
OPEXIT 

PROVIDES AN EXIT 
FROM THE LIST TO 
EXTERNAL ROUTINES. 



**«#D3****»**« 

INSERT FLAG 

BYTE INTO 

DISPLACEMENT 

OF NEXT 

INSTRUCTION 



* 


REDUCE 


* 




VALUE OF 






PRINT OUT 






AREA BY 




#»1 


1 


»»* 



•*F1»**»* 
OPBITS 

*B5 



•*G1*»*»**» 

CALCULATE 

FIELD 
ADDRESS. 
ZERO WORK 
REGISTER 



»*»»»H1********** 
•MOVE FIRST BIT * 
• TO WORK REG • 
•PUT 'NUMBER OF * 
•BITS TO BE PRO-* 
•CESSEDMN WREG3* 



LOOPBITS X 

• INCREMENT * 

• OUTPUT • 

• AREA : • 

• POINTER • 



OPNONO 

DISPLAYS A FIELD 

ONLY IF NON ZEROS. 



*«F2***«**» 

PUT 

PRINTABLE 

1 IN 

OUTPUT 



DECREMENT 

BIT 

ADDRESS 



»*F3***»*»* 

MOVE 
CHARACTER 

1 TO 
PRINTOUT 

AREA 



PUT 

256 IN 

MASK 



LOOPBIT 

* INCREMENT 
•OUTPUT POINTER 

• BY 1- 

• DECREMENT 

* MASK BY 1 



*»G4*»***»* 

MOVE 

PRINTABLE 

ZERO TO 

OUTPUT 

AREA 



H2 •- 
.« IS • 
.« BIT ADDR 



* A3« 
LSTRTN 



• RESET MASK • 
•REGISTER TO 128* 

• INCREMENT • 

• BYTE ADDRESS • 




•••K2« 

DECREMENT 

•NUMBER OF 

BITS TO BE 

PROCESSED' 

BY 1 



.♦•NUMBER*. 




•OF BITS TO *. 


NO 


BE PROCESSED'. 








• , .» 


. 


• . .* 


X 










. 


* Jl 


X 






*»* 


♦ JL ♦ 




* A3* 





MOVE 
PRINTABLE 
'ONE' TO 
PRINTOUT 

AREA 
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Chart JS. EREPEDIT - Function Subroutines (Part 3 of 5) 



UNPKHEX 

•*B1«***»«* 

♦MODIFY INST* 
* PUT LSTNDX « 
* VALUE IN 
» FOLLOWING « 

♦INSTRUCTION* 



OPEXOR 
»J2 



OPEXOR X 

*»##*B2***»»**« 

* POINT TO 

* EXCLUSIVE OR 

* SUBROUTINE 

* BRANCH TO 

* SUBROUTINE 



CLEAR 

WORK 

REGISTER 



*«»«*C1********* 

♦ CALCULATE 

♦ FIELD ADDRESS 
♦PICK UP LENGTH 

♦ CODE FROM 

♦ FIELD 



DATA IN 
FIELO LT 
. X»FE« 



UNPACK AND 
TRANSLATE 
BIT FIELD 



♦ KE * 

* A3* 

EXCLUSVE 



.*. 


PROGUNTS X 


4 *. 


***»*D5*«*»«»» 




* PUT UNIT 


VALID *. 


* NUMBER INTO 


UNIT .* 


•WORK REGISTER 




* CONVERT TO 


.* 


« DECIMAL 



SPECIFY 
INVALID 
UNIT 



♦PUT UNIT NUMBER* 
•INTO WORK REG. * 
♦CALCULATE DIS- ♦ 
♦PLACEMENT INTO ♦ 
♦ SYSTEM LIST. ♦ 



»****F ^•♦♦♦♦**** 

♦ CALCULATE 
♦UNIT'S ADDRESS. 

♦ MOVE UNIT 

♦ ADDRESS TO 

♦ PRINTOUT AREA 



UNPACK AND 

MOVE TO 

PRINTOUT 

AREA 

•»••»«««**»• 



* A3* 
LSTRTN 



#*»G1***«^*^ 

MOVE SECOND 

HALF OF 

BYTE TO 

PRINT OUT 

AREA 



»*»G2»****** 

MOVE FIRST 

HALF OF 

BYTE TO 

PRINTOUT 

AREA 



X 

♦ JL ♦ 

♦ A3^ 

LSTRTN 



♦ H4 
OPLOGUNT 
DISPLAYS THE 
LOGICAL UNIT. 



♦Jl 
UNPKHEX 
UNPACKS A 
HALF BYTE 
OR MORE. 



♦ J2 
OPEXOR 

AN EXCLUSIVE OR 
FUNCTION WHICH IS 
PLACED IN EREP LOG1. 
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Chart JT. EREPEDIT ~ Function Subroutines (Part 4 of 5) 



BITMOVE 

* PICK UP 

* FIELD ADDRESS 
» AND PUT IT 

* IN WREG 4 



B2 *. 

.• MASK « 
REGISTER 




INCREMENT 
ADDR REG BY 
ONE. RESET 

MASK REG 




•#B3**»»»»* 

CALCULATE 

FIELD 

ADDRESS 

AND ALIGN 

BOUNDARY 



»*C3*»*«*»* 
UNPACK 
FIELD AND 
MOVE DATE 
TO PRINT 
OUT AREA 



♦♦♦♦♦El* 

♦ TURN OFF NO » 
•CLEAR INDICATOR* 

• CALCULATE FLD ♦ 

* ADDRESS. ZERO » 

* WORK REGS » 



»«#**F1*»*»*»*»*» 

* PICK UP « 

* STARTING * 

* ADDRESS AND ♦ 
♦NUMBER OF BITS » 
♦TO BE PROCESSED* 



TEST 

FIRST 

BIT 




♦«»D2» 

DECREMENT 

•BITS TO BE 

PROCESSED' 

BY ONE 



.* 'BITS ». 
* TO BE 

PROCESSED' 
*. EQUAL . 



F2 ». 

.♦ IS ♦. 

SHIFT 
INDICATOR 
. GT 



♦MOVE 'LENGTH 

OF SHIFT' 
» IN SHIFT 
♦ REGISTER ♦ 



LOAD BITFIELD 

INTO SHIFT 

REGISTER 



INCREMENT 

BIT, 

ADDRESS 



»F3 
•BIT MOVE' MOVES A 
SPECIFIED NUMBER 
OF BITS INTO A 
FIELDt ALSO 
PROVIDES THE 
FACILITY TO BYTE 
ALIGN A BIT STRING. 



♦ •♦AA-*»*»* 
OPTIME 
♦ J5 



* CALCULATE 

* FIELD ADDR 
♦ALIGN 'TIME' I 

* FULL WORD 

* BOUNDARY 



ZERO WORK REG 
PUT DIVISOR 

(60)IN WREG 1 
PUT TIME IN 
WREG 2 *K5 



♦ DIVIDE BY 300 

♦ DISREGARD RE- 
MAINDER DIVIDE 

♦ BY 60 AND 

♦ STORE SECONDS 



♦♦E4**^**** 

DIVIDE BY 

60 TO GET 

HRS AND 

MINUTES 



♦♦♦♦F4*******^« 

CONVERT HOURS 

TO DECIMAL 

AND MOVE 

TO PRINT 

OUT AREA 



♦ ♦♦^^♦♦♦♦♦•♦♦* 

CONVERT 

MINUTES TO 

DECIMAL AND 

MOVE TO PRINT 

OUT AREA 



♦ ♦♦♦^♦♦♦*«**" 

CONVERT 

SECONDS TO 

DECIMAL AND 

MOVE TO PRINT 

OUT AREA 



* A3» 
LSTRTN 



* A3* 
LSTRTN 



*J5 

OPTIME 

UNPACKS AND DISPLAYS 
THE TIME AS IT IS 
FOUND IN A RECORD. 



'TIME' IS IN TOTAL 
PULSES AND THERE ARE 
300 PULSES/SEC. 
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Chart JU. EREPEDIT - Function Subroutines (Part 5 of 5) 



»A1***»* 

OPLOAD 

*J1 



» INSERT FIELD 
»ADDR INTO NEXT 
» INSTRUCTION 



CALCULATE 

FIELD 

ADDRESS 



*»*»#C1********** 
•MOVE PHASE NAME* 

* TO 'DOUBLE'. * 

* SAVE * 

* INDICATOR * 

* BYTE » 



*##Dl*****»* 

PUT 

ADDRESS 

OF PHASE 

NAME INTO 

REGISTER 1 



C2 *. 
* IS 
PARITY 
BIT ON 



**D2****** 

MOVE AN 

ASTERISK 

TO PRINT 

AREA 



X 

»«#*E1******** 
SVC 4 
* LOAD PHASE 
SPECIFIED 
* IN REG 1 


• *• 

* 
• 




* A3* 
LSTRTN 




X 

Fl****. 

.• IS *. 

•PREVIOUSLY • 

SAVED INDICA- 

*.TOR BYTE .* 

*. =0 .* 

• « .* 

• YES 


. NO 


















• 
* 


X 
t»»*GL******** 

LOAD 

ADDRESS OF 

PHASE 

NAME INTO 

LSTNDX 


* 
* 
* 


LOADPTR 

• 


) 

»G2* 

LO/ 

LI. 

POH 

INI 

LSTr 


: 

iD * 
>T * 

UER * 

ro * 
tox * 




!x.. . .. 












x 

• *••• 

• JL • 

• C3« 










LISTPRO 











«J1 

OPLOAD 

LOADS A NEW PHASE 
AND INITIALIZES 
THE LIST POINTER. 



*J2 
OPPARITY 

CHECKS THE PARITY 
BIT AND PUTS AN 
ASTERISK PRECEDING 
THE FIELD IF A ONE 
IS ENCOUNTERED. 
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Chart KA. EREPCLR - Main Routine 



•Bl*»»**» 
EREPCLR 



OETERMINE 

SYSREC DEVICE 

TYPE AND 

OPEN SYSREC 



*«*«D1*******'** 

ACCEPT ANY 

UNRECOVERABLE 

I/O ERROR 

AND READ 

HEADER REC. 



» REC FOUND * 

OR UNRECVBL 
*.I/0 ERROR.* 



» SECURITY * 

BYTE IN HDR 
». REC .* 



GETCPUID 

•*««*G1********* 

* PUT HEADER • 

* RECORD IN I/O 

* AREA AND 
•POINT TO START 

* OF OBR RECS. 



UPDATE 
SEARCH 
ADDRESS 



RELOCATE 

ADDRESS 

CONSTANTS 



* GET NO. OF 

» SDR RECS. AND 

* REC. COUNT 

* SPECIFIED 



IPLCHK 
NO .•' 

X 


D2****. 

IPL **. 

RECORD .* 
.* 

*"»YES 


FORMAT .». 

D3 *. 

.»* LAST *». 

*. REC. TO BE .» 
♦.FORMATTED.* 

*'*YES 


HI * 








-X 




MOVE X 

*»»«»E2********** 

* SAVE * 

* CPU/IPL * 

* RECORD * 


FORMOST X 

•*»»«E3**»******* 
•WRITE KB* 

• FORMAT LAST ~* 

• OBR ♦ 

• RECORD * 



»»»«»C3******»*»* 
* SET UP DISK * 
♦ADR FOR I/O OPS* 
« DATA LENGTHS * 
« FOR OBR AND * 
•SECURITY BYTES * 



•»*D4******** 
INITIALIZE 

TO WRITE 

UPDATED SDR 

HEADER 

RECORD 



INITIALIZE 
TO WRITE 

UPDATED 
OBR HEADER 

RECORD 



*••» 05 •*•**•*•• 
•FETCH $$BSDRUP 
» CHART KK 



*E5 
ARE THE 

COMMUNICATIONS 
REGION EXTENTION 
ADDRESS AND 
THE SDR 

COMMUNICATIONS 
REGION ADDRESS 
AVAILABLE. 



SET OBR KEY 
AND CURRENT 
OBR ADDRESS 



UPDATE 

»****F4»* 

•WRITE 

*-»- r #— #-#-.*-#— »■ 

* WRITE UPDATED 

* HEADER 

* RECORD 



KB* 



READLOOP X 




♦ »««H1*« ►•***» 


READ 


A 


» RECORD 


SVC 





* SVC 


7 



*J2 
"•YES 



»«G2******* 
» INDICATE 
BAD SYSREC 

HEADER 

RECORD 



••#«H2**»*«***« 
FETCH EREP, * 
ENTER AT * 
OPTION * * 

* OPTION HC-A3 



*J2 EOF, 

EXTENTS EXCEEDED, 
OR ALL RECORDS 
CHECKED 



CPU/ID 

RECORD 
SAVED 



IPL 

RECORD 

SAVED 



•»*J3**»*»»» 

CONVERT 

IPL REC 

TO CPU/ID 

REC FORMAT 




FORMAT 

OBR 
RECORD 



•••H4******* 

INITIALIZE 

TO WRITE 

CPU/ID 

RECORD 



WRITE 
CPU ID 
RECORD 



CLEAR 

I/O 
AREA 



*»#K3»»»*»»» 

SET FIRST 

OBR REC 

AS CURRENT 

OBR REC 
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Chart KB. EREPCLR - Disk Address Update, Write, and Relocation Subroutines 



••♦•A5*»««* 
INITL 
*K5 



**»B1»*»*»««*» 

LOAD ADDR 

OF CHANNEL 

PROGRAM 

•SYSREC INTO 

REGISTER 1 



GET 

RECORD 

COUNT 



*»*B5»»»*»*»» 

GET COUNT 

GET ADDRESS 

OF ADDRESS 

TABLE 



*###C1*»*»*»»»»** 

SVC * 
EXCP 




f 


C3 ». 
.* IS •. 

• RECORD *. 

COUNT AT .• 
». MAXIMUM .* 

***YES 


X 

Dl* *#. 

.»" I/O *«. NO 
. COMPLETE .* 


»***D2********* • 
* SVC 7 * 
...X* WAIT *.... 


X 

f»«»D3*»*»*»*»»* 

RESET • 

RECORD * 

COUNT * 

TO * 

ONE * 


• YES 

X 

#»##E1*****»**» 
RETURN TO * 
CALLING • 
PROGRAM • 


* 


X 

E3* "•. 
.* IS • . 

* TRACK «. 

COUNT AT ,» 
». MAXIMUM .» 



»»»F3**»**»** 

RESET TRACK 

COUNT TO 

ZERO, GET 

CYLINDER 

COUNT 



• UPDATE 

• CORRECT COUNT 

• GET RECORD 

• COUNT AND 
•DECREMENT BY 1 



**»«*H3********** 

* STORE RECORD • 
•COUNT IN SEARCH* 

* ADDRESS ALONG » 

* WITH TRACK • 

* ADDRESS • 



♦»J3#»«*««« 

RETURN TO 

CALLING 

PROGRAM 



*«»C5***«*** 

RELOCATE 

AN ADDRESS 

TABLE 

ENTRY 



**»E5*«»*»«* 

RETURN TO 

CALLING 

PROGRAM 



ISSUES ALL THE WRITE 
COMMANDS TO THE 
RECORDER FILE. 



ENTERED AFTER EACH 
WRITE TO UPDATE THE 
DISK ADDRESS FOR 
THE NEXT WRITE. 



RELOCATES ALL 
THE ADCONS IN 
THE PHASE. 
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Chart KC. EREPCI30 - CIE Record Display of Catalog Number or MCK Information 
Refer to Chart 15. 



APENDAGE 
*A4 



• A4 
ENTERED FROM 
EREPCI30 LIST. 



APENDAGE 

#«»»»B3»«»**«»«* 

* LOAD 
» DSECT 

» REGISTER AND 

* OUTPUT AREA 

* ADDR REGISTER 



LOW 
*MPX 



C3 • . 

CHANNEL 

1 

ERROR 



FINISH X 

»»»*»C5***»*»*« 

* MOVE CATALOG 

* NO AND 

* INFORMATION 

* TO OUTPUT 



MPX 


*. 


NO .• CHAN 2 


LOGOUT 




...». LOGOUT BYTE 


. BYTE ON 


.* 


«. ON 



MOVE 

NUMBER OF 

LOGOUT MSG 

TO OUTPUT 



»»»*»E2**»**»*»* 

•POINT REGISTER 
» 7 TO 
* MPX LIST 



♦POINT REGISTER 

* 7 TO 

* SEL 2 LIST 



CHAN 

1 LOGOUT 

. BYTE ON 



•POINT REGISTER 

• 7 TO 

• SEL 1 LIST 



*«**E5»«*»**»»* 

LOAD REGISTER 

7 WITH ENDUP 

PROCESSOR 

POINTER 



F2 ». 






CAT NO « 






OR MCK 







REG 






STORED 


.* 


MCK. 



F3 ». 

* CAT * 

NO OR 

MCK REG 

STORED 




MCK* 



.* CAT *. 

NO OR MCK 

REG 

. STORED . 



RETURN TO 

LIST 
PROCESSOR 



«»G2»*»**» 

UNPACK 

AND SAVE 

CATALOG 

NUMBER 



»»«G3«»»»*»« 

UNPACK AND 

SAVE 

CATALOG 

NUMBER 



#»»G4***»»*» 

UNPACK AND 

SAVE 

CATALOG 

NUMBER 



•POINT REGISTER 

• 1 TO 

• MPXTBLE 

• LIST 



POINT REG 1 

TO CATALOG 

NUMBER 

LIST 



CAT NO 
MATCH 
FOUND 



INCREMENT 
CAT NO 

LIST 
POINTER 
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Chart KD. EREPL0G1 - ROBAR Parity Check Routine 
Refer to Chart 16. 



*A1 
ENTERED FROM 
EREPL0G1 LIST. 



*A2»*«»* 

EXIT2 

• Al 



• Bl 
WREG1 - POINTER TO BYTE X, 
BITS 5, 6, 7. INITIALIZED 
AS X«04« BUT AS BIT 5 IS 
ALWAYS 0, TESTING THIS BIT 
DOES NOT AFFECT PARITY 
RESULT. 

WREG2 - POINTER TO WORK 
AREA CONTAINING ROBAR 
BYTES X, 0, 1, AND FLAG 
BYTE. 

WREG3 - POINTER TO NEXT 
BYTE PARITY CHECK ROUTINE. 



*»B2*« 


»»**• 


•INITIALIZE 
PARITY MASK 
BYTE 9 FOR 
ROBAR BYTES 

• X,0,1 



«»«*C2»***»*»*» 

TEST BITS 

OF BYTE 9 

AGAINST ROBAR 

BYTE X 



NEXTONE 

#»«*»C3»*«**»*»» 

* TEST BIT 6 

* OF BYTE 9 

» AGAINST ROBAR 
« BYTE 



NEXTTWO X 

*«««*C4********* 

* TEST BIT 7 

* OF BYTE 9 

* AGAINST ROBAR 

* BYTE 1 



» EXCL OR » 

* BYTE 9 WITH * 
•ROBAR FLG BYTE. 

• CALCULATE • 
•TRUE PARITY* 



INITIALIZE 

WORK 

REGISTERS 

• Bl 



♦ El 
FIRST TIME - 

BYTE X 
SECOND TIME - 

BYTE 
THIRD TIME - 

BYTE 1. 



«G1 
ALL ON BITS IN ANY 
ONE ROBAR BYTE ARE 
EXCLUSIVE OR'D AGAINST 
A SINGLE BYTE 9 PARITY 
BIT. WHEN ALL ON 
BITS ARE EXCLUSIVE OR'D 
THE RESULT, WHETHER 1 
OR 0, INDICATES 
PARITY FOR THAT 
ROBAR BYTE. 



E2 •. 

• IS 
TESTED 
BIT ON 
•El 



#*F2«»««»*« 
• EXCL OR • 

•THIS BIT WITH* 
CORRESPONDING 

• PARITY MASK * 
•-BYTE9- »G1« 



##»»G2** # **»** 

DECREMENT 

WREG1 BY 1 

BIT TO CHECK 

NEXT BIT IN 

ROBAR BYTE 



H2 •. 
.• BIT «. 

•CHECK DONE 

FOR THIS 
*. BYTE 



•#»«D3**«**«** 
INITIALIZE 
WREG1 WITH 

X'80'. CHECK 
ALL BITS IN 

ROBAR BYTE 



• INCREMENT • 
•WREG2 TO POINT • 
•TO ROBAR BYTE 0* 

• AND WREG3 TO • 

• NEXT ROUTINE • 



*«*»D4*»*»»»** 
INITIALIZE 
WREG1 WITH 

X'80'. CHECK 
ALL BITS IN 

ROBAR BYTE 1 



• INCREMENT • 
•WREG2 TO POINT • 
•TO ROBAR BYTE 1» 

• AND WREG3 TO • 

• NEXT ROUTINE • 



***»*D5 ••••**••* 

* MOVE A ONE 
•TO OUTPUT AREA 

* AS ASSUMED 

* ROBAR PARITY 



ZERO 
WORK 
AREA 



»**F5»«*«»««* 

MOVE «0 TO 

OUTPUT AREA 

AS ERROR 

PARITY 



•****G5 ••*••••*•• 
» LOAD ADDR OF • 
» UPDATE LIST » 
•POINTER ROUTINE* 
• INTO WREG2 • 



BRANCH TO 
ADDR IN 
WREG2 



X 

G5 
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Chart KE- EREPLOGl - LOGOUT Parity Check Routine 
Refer to Chart 16. 



EXCLUSVE 
*A2 



ZERO WORK 

REGISTER 

WREG3 



PICK UP BYTE 

AODRESS 

DISPLACEMENT 

FROM LIST 



EXITDONE X 

#*»»»C4**»*»»»*» 
•SHIFT ALL BITS 

* OUT OF WREG4 

* EXCEPT FOR 
« LOW ORDER 
» BIT »C5 



*C5 
IF BIT IS 1 - 

ODD NUMBER OF BITS ON 
IF BIT IS - 

EVEN NUMBER OF BITS ON 
IF ODD - EXCLUSIVE OR 

NOT NECESSARY AS 

PARITY WILL BE 

DISPLAYED. 



»»«»D3***»«***« 

CALCULATE 

BYTE ADDRESS 

BY ADDING 
INPUT ADDRESS 



INSERT FIRST 

BYTE OF AREA 

INTO WREG3 



ODD * 
NUMBER 
OF BITS .» 



**««E4»*»**»*« 

PICK UP BIT 

DISPLACEMENT 

FROM LIST 

INTO WREG1 



»»*»»F3»*»*»****» 

* ZERO * 
« ACCUMULATOR » 

* WREG4 * 


» CALCULATE 

• BIT ADDRESS 
« BY ADDING 

* INPUT ADDRESS 



ZERO WORK 

REGISTER 

WREG2 



SHIFT BIT 

FROM WREG3 

TO WREG2 



*»G4*»***«» 
» EXCL OR * 

♦ BIT AND EXOR 
» FLAG PICKED 

♦ UP FROM 

« LIST • 



*#»«*H4»»*»»»»**» 

* LOAD ADDRESS * 
♦OF UPDATE LIST * 
♦POINTER ROUTINE* 

♦ INTO WREG2 * 



ALL WREG2 TO 

WREG4- 
CALCULATE 
NUMBER OF 

BITS ON 



* ALL 
BITS 
». SHIFTED 



BRANCH TO 

ADDR IN 

WREG2 
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Chart KF. EREPCI55 - Subroutines 
Refer to Chart 17. 



CHECKEND 

* ESTABLISH 
•ADDRESSABILITY 

* FOR INPUT 
« AREA DSECT 



TURN ON 

END OF PAGE 

INDICATOR 



C2 • . 
.* NEW *. 

» SET OF « 

RECORDS IN 
•INPUT AREA.» 



YES .* IS DATA *. 
...•.SET COMPLETE .» 

X *«. .«' 

*#•*• *N0 

• JD • 

• A3» 

CIEDONE '. 
X 
»*»»»E2»«**«»***« 

» OBTAIN RECORD • 

• COUNT FROM » 

• INPUT AREA • 


• SET LIST • 

• POINTER TO » 

• EXIT ROUTINE » 


»*»«E3« 
• RET 


: 

JRN • 



»F2»*»»»***** 



• BASE 
RECORD COUNT 

• ON FIVE 



5 RECORDS 
IN INPUT 
. AREA 



• UPDATE DISK • 
» ADDRESSt READ • 
•REST CIE RECORD* 



»K2**»«» 
RETURN 
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Chart KG. EREPMC55 - Subroutines 
Refer to Chart 17. 



»A1»»»**» 
DECIDE! 



STOPEDIT 



.* HAS *. 

.» DATA SET ». YES 
BEEN ...... 

«. PROCESSED.* 



SET BASE REG 

FOR INPUT 

AREA DSECT 



MOVE 60 

ASTERISKS TO 

OUTPUT AREA 



#*D1******* 

* SET LIST * 

* POINTER, » 
TURN ON LIST * 

* PROCESSED * 

• SWITCH * 



**C2******* 
TURN OFF 

RECORD 
PROCESSED 

SWITCH 



• A3* 
CIEDONE 



TURN ON 

END OF PAGE 

INDICATOR 



• C3* 
CIEOFF 



*D3***»* 
RETURN 



INPUT 

AREA 

FULL 



•PICK UP NUMBER 

* OF RECORDS IN 

* INPUT AREA 



CALCULATE 

CUT-OFF POINT 

IN LIST 



MOVE EXIT 

LIST TO 

CALCULATED 

POINT 



*.**F2*»**» 
* RETURN 



*G2 
CUT-OFF POINT IS WHERE 
IN EREPMC55 LIST THE 
NUMBER OF RECORDS IN 
THE INPUT AREA HAVE 
BEEN PROCESSED. 
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Chart KH. EREPLOG5 - Subroutines (Part 1 of 2) 
Refer to Chart 17. 



SET UP BASE 

REGISTER FOR 

INPUT AREA 

DSECT 



PUT AODR OF 
THE END OF A 
LINE OF DUMP 

IN ENDLINE 



»»»»#D1*»*»*»«»« 
•ESTABLISH PTRS 
•TO LOGOUT AREA 

• AND ENDING 

• ADDRESS IN 

• LOGLENGTH 



PUTLINE X 

»#***E1»»**»««**« 
•PRROUT JJ» 

•PRINT CONtInTs"* 

• OF OUTPUT * 

• AREA » 



POINT TO 

START OF 

OUTPUT AREA 



• PUT LOCATION 

• COUNTER, IN 
•PRINTABLE FORM, 
» INTO OUTPUT 

• AREA 



**«#*H1*»*«»*»* 
» MOVE OUTPUT 

• POINTER PAST 

• LOCATION 

• COUNTER 



X 

**J1«***»*» 

INCREMENT 

LOCATION 

COUNTER 

BY X'30« 



*K1****»«»»*« 



DUMPLOOP X 

♦«#»»A2»»««»»*«* 

• CONVERT AND 
•MOVE TO OUTPUT 

• AREA ONE WORD 

• OF LOGOUT 



•*«B2*«**»«»* 

MOVE LOGOUT 

POINTER TO 

NEXT WORD 

OF LOGOUT 



#«A3«»»«»* 
CHECKEND 



• F3« 
RETNPONT 



• BUMP 
LIST POINTER 

• PLUS 4 



MOVE LIST 
POINTER 
PLUS 4 



ENDUMP 

» MOVE LIST 
•POINTER PLUS 
.,X* AND SAVE 
• REGISTERS 



E2 •. 

.* HAVE ♦. 
YES .• 4 WORDS ». 
...♦.BEEN MOVED TO. 
•.OUTPUT .« 



»»»F2»*****» 



SET BASE REG 

FOR INPUT 

AREA DSECT 



D4 •. 
.• NEW *. 

• SET OF 

RECORDS IN 

». INPUT . 

•.AREA .« 



• YES 



•»*»F5*»»«»»** 

SET LIST PTR 

TO ADDRESS 

OF NORMAL 

EXIT 



♦ BASE 

• RECORD COUNT 

* ON 5 



5 RECORDS 
IN INPUT 
. AREA 



MOVE LIST 
POINTER 
PLUS 4 



*K2 
ENTERED FROM 
EREPLOG5 LIST. 



*«»»*J4»*«««»»»»* 

* SET LIST * 

♦ POINTER TO * 
« EXIT ROUTINE ♦ 


♦UPDATE1 JK 

• UPDATE DISK 
•ADDR, READ REST 

• OF MCR RECORD 


* K4 ».. 


X 


; 


♦ RETl 


: 

JRN • 


• K5 
KJ-D1.C2 
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Chart KJ. EREPL0G5 - Subroutines (Part 2 of 2) 
Refer to Chart 17. 



••A3****** 

STOPEDIT 



»»»A4*»»«*»* 
SETLENGTH 



«A5»»«*«* 
WHICHBR 



TURN ON 

END OF PAGE 

INDICATOR 



OBTAIN RECORD 
COUNT FROM 
INPUT AREA 



YES .* EXTENDED 



SAVE NUMBER 
OF RECORDS 
IN DATA SET 



POINT LIST 

POINTER TO 

NORMAL 

EXIT 



.• IS *. 

• 14TH 

RECORD IN 
•INPUT AREA. 



•CALC LENGTH OF 
* LOGOUT TO BE 
« DUMPED 



»#»»*F1**»*»*»»» 
♦SET POINTER TO 

* END OF LOGOUT 

* AND SAVE ODD 

* 3 BYTES OF 

* LOGOUT 



SET POINTER 
TO LOGOUT 
BEGINNING 



♦CALC LENGTH OF 

♦ LOGOUT TO BE 

♦ DUMPED 



•*FZ******* 

♦SET POINTERS 

TO END ADDR 

OF LOGOUT 

AREA 



SAVE 

END 

ADDRESS 



♦ C2^ 

* * 

retNpont 



SET POINTER 
TO START 
OF LOGOUT 



CALCULATE 

LENGTH OF 

LOGOUT TO BE 

DUMPED 

♦ E5 



♦SET POINTER* 
TO ADDR OF ♦ 
END OF 14TH 
RECORD OF ♦ 

♦ LOGOUT ♦ 



KJ^ 



♦ »*«*F3"« 

♦SHIFT 

♦SHIFT FIRST RCD^ 

♦ IN INPUT AREA ♦ 

♦ 1 BYTE RIGHT ♦ 



ADD LENGTH 

TO ADDRESS OF 

INPUT AREA 



• F5»*^^ 
SHIFT 



• •^^♦♦♦♦•♦•^ 
SHIFT FIRST 

RECORD IN 
INPUT AREA 
ONE BYTE 
TO RIGHT 



RESTORE ODD 

3 BYTES OF 

LOGOUT 



♦ K3 
ROUTINE ENTERED 
FROM EREPLOG5 LIST. 



EREP 177 



Chart KK. $$BSDRUP - EREP Processing Suppress File-Ready-for-Recording Switch 



»A2«*»»»»» 
SSBSDRUP 



»*»*B2»»*«*»«* 

GET ADDRESS 

OF PROGRAM 

SAVE AREA IN 

REGISTER 2 



GET ADDRESS 
OF SDR COMM 

REGION IN 
REGISTER 3 



FILE », NO 
READY FOR .♦... 
.RECORDING.* 



**C4*««»*»« 

» SET 

RECORDING 

BIT X'01'. 

SDR TABLE 

* BYTE 1 



»«C5«**«*»« 

•CLEAR PART * 

•ID FIELD WITH* 

X'OO*. 

• SDRTABLE • 

« BYTE 1 • 



• Dl 
REG 2 HAS ADDRESS OF 
UPDATED HEADER 
INFORMATION AND REG 3 
HAS ID CODE WHEN 
FETCHED BY EREPCLR. 

REG 3 HAS ID CODE I 
WHEN CALLED BY EREP 
INITIALIZER ROUTINE* 
ID CODE WHEN CALLED 
BY EREP EXIT ROUTINE. 



##**D2**»**«*»* 

GET ADDRESSES 

PASSED IN 

REGISTERS 

2 AND 3 

• Dl 



BYPASS 

«*D4»«»««*« 
•SET CALLING* 
•PARTITION ID 
* IN SDR TABLE 
* BYTE 1 



CALLED 

BY EREP 

.INITILZR 



X 

*#E4*«»»»»« 

• CLEAR * 

READY FOR • 

RECORDING 

BYTE 0, BIT 7* 

♦IN SDR TBL * 



CALLED 

BY EREP 

EXIT 



»«G2****«»* 
• SET OBR 
• KEY TO 0. 
SDR TABLE 
♦BYTE 0, BIT 



*»*»H2**««»»»* 

MOVE UPDATED 

HEADER 

INFORMATION 

TO SDR TABLE 

BYTES 2-31 



»*J2**»*««* 
SVC 11 
RETURN TO 
CALLER 



*»G3*»***»* 

•CLEAR FILE 

» READY FOR 

RECORDING- 

•BYTE 0, BIT 

•IN SDR TBL 



WAS 
FILE 
READY 



•RESET FILE 

• READY FOR 

RECORDING 

•BYTE 0, BIT 

♦IN SDR TBL 
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Chart LA, EREP2715 - Initialize and Print Type Records 
Refer to Chart 18. 



**A1*«»»»* 
EREP2715 



INITIALIZE 

REGISTERS 

AND SW3 



»»C1»»»»»»» 
• CHANGE * 

* ROOT PHASE • 
AT MODIFIED 

♦ TO PRINT 2715* 
» HEADER * 



CHANGE 

INSTRUCTION 

AT MOD TO A 

* BO MAYBE * 



.* TYPE 1 •. 


YES 


•. OUTPUT 




». *F1 .» 


. 








X 


• NO 






• LB 




• Bl 


•LB «... 




♦ B3* 




♦ *•# X 


YESL 


OUT .*. 




D2 ». 








.« TYPE 2 «. 


YES 


». OUTPUT 




•. «F1 .• 


. 



*»»A4********* 

INITIALIZE 

LOW DISK 

LIMIT FOR 

TYPE 



BALRD 

••••B4«» 
READREC 



READ AN 
80-BYTE 
RECORD 



TEST FOR I/O 
ERRORS AND 
2715 RECORD 



SET UP PRINT 

LINE WITH 

TYPE 

CONSTANTS 



CONVERT CHAN 

AND UNIT TO 

PRINT AS HEX 



MOVE TIME 

STAMP TO 

PRINT LINE 



X 


BALCONV X 


##D4««»««»» 


*#**»D5»»«*»««» 




•C0NV4 L 


TURN OFF » 




80 BYTES * 
PROCESSED » 


• CONVERT 4 ERR 


* BYTES TO 


SWITCH • 


* PRINT AS HEX 



TYPE 3 

OUTPUT 

*F1 



•SET POINTER TO 
•TYPE LOGICAL 
* RECORD 



PRINT A LINE 

AND TEST 

LINE COUNT 



• Fl 

BITS OF SWITCH SWSP WERE 
SET BY THE ROOT PHASE TO 
INDICATE INCLUSION OF THE 
TYPES OF LOGICAL RECORDS 
FOUND ON SYSREC. THE 
BIT SETTINGS IN SWSP ARE — 



BIT = 1, 



BSC ADAPTER 
ERROR (TYPE 4) 
AREA STATION 
ERRORS (TYPES 
8-F) 

2740 ADAPTER 
ERROR (TYPE 3) 
MPX ADAPTER 
ERROR (TYPE 2) 
2790 ADAPTER 
ERROR (TYPE 1) 
DISK ADAPTER 
ERROR (TYPE 0) 
SPECIAL CODE 7N 
(TYPE 7). ALSO 
SEE FIGURE 31. 



TYPE 4 

OUTPUT 

•Fl 



TYPE 7 

OUTPUT 

•Fl 



YES3 
YES 



• 80 *. 

BYTES 
•.PROCESSED.* 



G4 *. 

.•TYPE •. 

HIGH DISK 

LIMIT 

. REACHED . 



.• TYPE 


*. 


YES 


». 8-F 






•. OUTPUT 






♦. «F1 .* 










X 


• NO 




•LE 
• B2 


X 












ALLOK «JD • 




YES8F 


• C3« 


















TCLR 
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Chart LB. EREP2715 - Print Type 1 and Type 2 
Refer to Chart 18, 



Records 



*»»«B1»**»*»*« 

INITIALIZE 

LOW DISK 

LIMIT FOR 

TYPE 1 ERROR 

RECORO 



A2 ». 

.♦TYPE 1 *. 

HIGH DISK 

LIMIT 

. REACHED . 



» MOVE LOW DISK 
•LIMIT FOR TYPE 
» 2 RECORD TO 
•SEARCH ADDRESS 



BALRD2 

*»«»B4** 
READREC 



PRINT A 
BLANK 
LINE 



»*»»»B5**»«***» 

* SET UP PRINT 

* LINE WITH 

* TYPE 2 

* CONSTANTS 



BALRD1 

*»*»C1**»**»* 
READREC 

RlAD AN 80 
* BYTE ERROR 
RECORD 



TEST FOR I/O 
ERRORS AND 
2715 RECORD 



« CONVERT CHAN * 
•AND UNIT TO HEX» 
» MOVE TO PRINT • 



TEST FOR I/O 
ERRORS AND 
2715 RECORD 



»*D4**»»*»« 


***«*D5 »»•*»♦»»•# 




•TIMEDATA LJ* 


SET INSTR * 




AT MODIFY TO • 


» MOVE TIME * 


TEST FOR TYPE* 


• STAMP TO • 


• 2 RECORD • 


• PRINT LINE • 



TURN OFF 

80 BYTES 

PROCESSED 

SWITCH 



*»F1******* 
* SET INSTR • 

•AT MODIFY TO » 
TEST FOR TYPE 

• 1 LOGICAL • 
» RECORD • 



•POINT TO TYPE 1* 

• LOGICAL • 

• RECORD • 



•SET PRINT LINE 
* FOR 2790 
» ADAPTER ERROR 
» LOG 



• SET UP PRINT 
.X« LINE FOR TYPE 

* 1 CONSTANTS 



TURN OFF 

80 BYTES 

PROCESSEO 

SWITCH 



CONVERT 4 
BYTES TO HEX, 
MOVE TO PRINT 



•CONVERT CHAN + 
• UNIT TO HEX, 
» MOVE TO PRINT 



MOVE TIME 

STAMP TO 

PRINT LINE 



CONVERT 4 ERR 
BYTES TO HEX, 
MOVE TO PRINT 



PRINT A LINE 

AND TEST 

LINE COUNT 



POINT TO TYPE 

2 LOGICAL 

RECORD 



»*##G4****»»»» 

SET 

PRINT LINE 

•MPX ADAPTER 

ERROR 

LOG* 



PRINT A LINE 

AND TEST 

LINE COUNT 



.«. 


T3 


J4 *. 


»#»*J5**»**»#»* 




BLK1 LJ 


TYPE 2 *. YES 


*»-« — »T«— •-«*-*-* 


HIGH DISK .*.... 


....X PRINT A 


LIMITS .♦ 


* BLANK LINE * 


•REACHED* 





* D2» 

L00P7 
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Chart LC. EREP2715 - Print Type 3 and Type 4 Records 
Refer to Chart 18. 



* MOVE LOW DISK 
♦LIMIT FOR TYPE 

* 3 RECORD TO 
♦SEARCH ADDRESS 



BALRD3 X 
»»«*B1« 
READREC 



REAO AN 
80-BYTE 
RECORD 



*»*«*CL«**«»»»« 

♦DASDTST _ L 

♦^TEST FOR I/O 

♦ ERRORS AND 

♦ 2715 RECORD 



SET UP PRINT » 

LINE FOR ♦ 

TYPE 3 » 

CONSTANTS ♦ 



CONVERT CHAN 
AND UNIT HEX 
MOVE TO PRINT 



MOVE TIME 

STAMP TO 

PRINT LINE 



» MOVE LOW DISK 
♦LIMIT FOR TYPE 
♦3 ERROR RECORD 

♦ TO SEARCH 

♦ ADDRESS 



BALRD4 

»#*»B4^ 
READREC 



READ AN 
80-BYTE 
RECORD 



TEST FOR I/O 
ERRORS AND 
2715 RECORD 



SET UP PRINT 
LINE FOR TYPE 
4 CONSTANTS 



CONVERT CHAN 
AND UNIT HEX 
MOVE TO PRINT 



•#D1*»**»^* 

♦ SET INSTR ♦ 
♦AT MODIFY TO ♦ 

TEST FOR TYPE 
♦ 3 LOGICAL ♦ 

♦ RECORD ♦ 



♦ SET INSTR ♦ 

AT MAYBE TO 

♦TEST FOR TYPE^ 

♦ 3 RECORD ♦ 



TURN OFF 

80 BYTES 

PROCESSED 

SWITCH 



CONVERT 4 ERR 
BYTES TO HEX, 
MOVE TO PRINT 



PRINT A LINE 

AND TEST 

LINE COUNT 



TURN OFF 
80 BYTES 
PROCESSED 
♦ SWITCH 



•*D4***««" 


».»..D5""***»«* 


♦ SET INSTR ♦ 


♦TIMEDATA LJ^ 


♦AT MODIFY TO ♦ 




TEST FOR TYPE ♦ 


♦ MOVE TIME ♦ 


♦ 4 LOGICAL ♦ 


♦ STAMP TO ♦ 


♦ RECORD ♦ 


♦ PRINT TIME ♦ 



•*E4«*»»»*» 


*«*«#E5^ ♦♦♦♦♦♦♦♦♦ 


• * 


♦C0NV4 LJ^ 


SET INSTR ♦ 




AT MAYBE TO ♦ 


♦ CONVERT 4 ERR ♦ 


TEST FOR TYPE^ 


♦ BYTES TO HEX, ♦ 


♦ 4 RECORD ♦ 


♦ MOVE TO PRINT ♦ 



PRINT A LINE 

AND TEST 

LINE COUNT 



♦ SET POINTER 

♦ TO TYPE 3 
♦LOGICAL RECORD 



•••HI*********' 

MOVE 

•2740 ADAPTER 

ERROR LOG' 

TO PRINT 

LINE 



.♦TYPE 3 ♦. 

HIGH DISK 

LIMIT 

. REACHED . 



♦ GET POINTER 

♦ TO TYPE 4 
♦LOGICAL RECORD 



MOVE 'BSC 

ADAPTER ERROR 

LOG' TO PRINT 

LINE 



♦ 80 ♦. NO 

BYTES .♦... 
♦.PROCESSED. ♦ 



X 

♦LH ♦ 
♦ D2» 

L00P7 



NO .♦ TYPE 4 ♦. YES 
...♦. HIGH DISK ...... 

♦. LIMIT .♦ 
•REACHED* 
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Chart LD. EREP2715 - Print Type 7 Records 
Refer to Chart 18. 



YES7 X 

»»»»*A1********* 

• MOVE LOW DISK 
•LIMIT FOR TYPE 
*7 ERROR RECORD 

• TO SEARCH 

• ADDRESS 



# Bl 

BALRD7 



MOVE REST 

OF CONSTANT 

TO PRINT LINE 



A4 *. 

CODE 75 

**NO 



READ AN 
80-rBYTE 
RECORD 



* DOING * 

LEFT SIDE 
».OF RECORD.* 



SET UP PRINT 

LINE FOR 

CODES 71-74 



SET PRINT 

LINE TO 

CODE 75 AND 

•ROUTINE XX' 



* TEST FOR I/O « 
•ERRORS AND 2715« 

• RECORD * 



MOVE RIGHT 
SIDE TIME 
STAMP TO 

PRINT LINE 



MOVE LEFT 

SIDE TIME 

STAMP TO 

PRINT LINE 



* CONVERT AREA 
♦STATION NO. TO 

♦ PRINTABLE HEX 



» CONVERT 
•ROUTINE NO. T 
• PRINT HEX 



**D1»**»**» 

• SET INSTR • 
•AT MODIFY TO * 

TEST FOR TYPE 
• 7 LOGICAL • 

• RECORD * 



JOINUP 

**D2*****»» 

♦SET CUTOHEX* 

• RTN TO GET * 

•CHAN, UNIT, ID 

•TO PROPER PRT* 

• POSITION * 



MOVE AREA 

STATION 
NUMBER TO 
PRINT LINE 



MOVE ROUTINE 

NUMBER TO 

PRINT LINE 



« SET INSTR ♦ 

AT MAYBE TO 

•TEST FOR TYPE* 

• 7 RECORD « 



MOVE 'ERROR 

TYPE* TO 
PRINT LINE 



E4 ♦. 

.*" "♦. NO 

♦. CODE 71-74 .»... 

***YES 



MOVE CODE 75 

MESSAGE TO 

PRINT LINE 

• J4 



* TURN OFF 
80 BYTES 

* PROCESSED 
• SWITCHED 



♦ GET POINTER 

• TO TYPE 7 
•LOGICAL RECORD 



•CONVERT CHAN + ♦ 

* UNIT TO HEX, ♦ 

♦ MOVE TO PRINT ♦ 



G2 



♦SET PRINT LINE • 
•FOR PROPER CODE* 
» AND MESSAGE « 



CODE 70 

"•NO 





. .... X I 


*»»G3*********» 

MOVE CODE 70 ♦ 
MESSAGE TO ♦... 
PRINT LINE ♦ 
• J4 * 


JOINR X 

»»*#G4» ********* 
PRT LH 

*~PRINT A . 
♦ LINE * 



MOVE 'SPECIAL 
CODE 70* TO 
PRINT LINE 



80 

BYTES 

•PROCESSED. 



.*. T8 

J2 *. *«*»J3*»««*«< 

.♦TYPE 7 *. BLK1 

* HIGH DISK *. YES .#_♦_♦_♦_«_*_- 

LIMIT .* X PRINT A 

*. REACHED .* * BLANK LINE 

**N0 



*LA * 
* H2* 

T80UT 



LJ 



•ERROR COUNTERS WERE RESET TO ZERO* 
•ERROR COUNTER THRESHOLD WAS REACHED' 
•ERROR SCAN WAS INITIATED* 

•AREA STATION DIAGNOSTICS WERE REQUESTED' 
•AREA STATION EXERCISOR WAS REQUESTED' 
•BSC ON LINE TEST WAS REQUESTFn« 
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Chart LE. EREP2715 - Print Types 8-F Records 
Refer to Chart 18. 



CODES 8-F DENOTE 
AREA STATION ERROR 
LOG ENTRIES. 



YES8F X 

»»B2******* 
« SET INSTR • 
♦AT MODIFY TO 
* TEST FOR 8-F 
* RECORD 
• #B1 ♦ 



»*B3*»**»»* 
« RESTORE ♦ 
♦INSTRS UNDER 

CUTOHEX TO 
•CONVERT CHAN, 
* UNIT, ID ♦ 



»»C2»****»« 

SET INSTR 

AT MAYBE 

TO TEST 

FOR 8-F 

RECORDS 



MOVE CHAR 

CONSTANTS TO 

PRINT LINE 



* SET LOW DISK 
♦LIMIT FOR TYPE 

♦ 8-F RECORDS 



BALRD8 

*««*E2^ 
READREC 



READ AN 
80-BYTE 
RECORD 



» TURN OFF 80 ♦ 

♦BYTES PROCESSED^ 

» SWITCH ♦ 



♦CUTOHEX L 

• 'CONVERT CHAN, 

• UNIT AND ID 

• TO PRINT HEX 



MOVE TIME 

STAMP TO 

PRINT LINE 



DOING 


* 


YES 


LEFT SIDE 






.OF RECORD 


■* 














X 


• NO 






• * . 




*LH • 


♦ . 




• G2^ 


4 »... 










♦ 


»♦ X 




RTSIDE 


.♦. 






E4 ♦. 












END OF 


» 


YES 


TYPE 8-F 






. RECORDS 


♦ 


. 












X 


• NO 




♦ LF ♦ 

♦ Al* 

CURTN 



***»»F 2* ********* 


*»«*«F3"»«»««^** 


♦DASDTST LJ^ 


•C0NV4 LJ» 






• TEST FOR I/O ♦ 


•CONVERT 4-BYTE * 


♦ ERRORS AND » 


♦ERR RCD TO HEX,* 


* 2715 RECORD • 


♦ MOVE TO PRINT * 



♦ MOVE ERR CODE » 
•AND DEVICE ADDR* 

• TO PRINT » 

• POSITIONS 4-5 * 

♦ AND 11-12 * 



INITREG LH* 

GET*POINTER*T0~* 

TYPE 8-F ♦ 

LOGICAL RECORD * 




♦ USE ERR CODE • 
♦TO MOVE PROPER * 

♦ MSG IN ERRTAB * 

♦ TO PRINT LINE ♦ 

♦ ^J4 • 








X 


X 
«#*»J3*»»**»*»»«« 
PRT LH 
CES *_♦-.,-»_, ^»_»-»>« 

PRINT THE 
• LINE * 

X «**«•**••*•••**** 
♦ •*♦ . 

• E2 • '. 

* * X 

♦ LH ♦ 


• J4 
ERRTAB 






J2* *♦. 


.ERROR. 
.CODE . 


HEX . 
DISPL. 


MESSAGE '. 


.♦ 80 ♦. ^ 

BYTES .• 

». PROCESSED. ♦ 

'•NO 
X 


. . 
. 1 . 
. 2 . 
. 3 . 
. 4 . 
. 5 . 
. 6 . 
. 7 . 
. 8 . 
. 9 . 


00 . 
14 . 
28 . 
3C . 
50 . 
64 . 
78 . 
8C . 
AO . 
B4 . 


A-S ADDRESS ERROR 
DEVICE ADDRESS ERROR . 
INVALID A-*S RESPONSE . 
CHANGE IN DATA BYTE . 
CHNGE IN STATUS BYTE . 
END REQST STATUS ERR . 
RECEIVE DATA OVERRUN . 
NULL ACKNWLDG OVERRN . 
RECORD LGTH CK ERROR . 
VALID CHAR CK ERROR . 



X 

04 
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Chart LF. EREP2715 - Count Channel-Unit and Area Station-Device Combinations 
(Part 1 of 2) 
Refer to Chart 18. 



»*A1***»»«* 
•SET FIRSTW 
» TO SHOW 

PROCESSING 
♦ OF 1ST TWO 
» CU'S 



**B1**»**»* 

* TURN OFF » 
80 BYTES 

AND 
COMBINATION 

* SWITCHES * 



POINT TO A 
LOGICAL 
RECORD 



LG-B3,B4,D4,E1,H4 



»#»#B5*****«««* 
SAVE LOGICAL 
RCD ADDR AND 
SET REGS TO 
LIMITS OF CU 
SAVE AND CTRS 



CALCULATE 

PARTITION 

SIZE 



•PROCESSING 

LEFT 
». SIDE 



SET CUSW 

FOR FIRST 

CHAN-UNIT 

TEST 



.*. SET10KSW 

Dl *. •»D2****««» 

.»"* LESS "•. YES ** SET SW 
*. THAN 12K .* X* FOR 10K 

♦.PARTITION.* * PARTITION 

*• .* * 

*. .» »»*#*#♦*##* 

• NO 

* * • * 
» El »... 

* * .X 

STRTSRCH X 

**«»*E1»««»»»»*»* 
•INIT SRCH ADDR » 

* TO LOWER * 

* LIMIT, INIT * 

* CUCOMB TBL » 

* TO ZERO » 



X 

**#*G1**»»**»* 

SET COMB 

TABLE FOR 

100 ENTRIES 

AND COUNTERS 

TO 100 



t**»G2******** 

SET COMB 

TABLE FOR 

60 ENTRIES 

AND COUNTERS 

TO 60 



.* UPPER * 
.SEARCH LIMIT 
*. REACHED .* 



THIS THE 

FIRST SET 

. OF CU'S . 



• MORE 

CU'S FOR 
•PROCESSING. 



* TURN OFF 

FIRST SET OF 
« CU'S SWITCH 



UPDATE 
SEARCH 
ADDRESS 



BALRD8A 

*»»#H1»*»*»* 
READREC 

READ AN 
* 80-BYTE 
RECORD 



»#»#*J1#»* 



FETCH 

X 

***** SVC*1** 
•FETCH EREPASSM 
• CHART LK 



• *«-*G4********* 

PUT CHAN-UNIT 

IN CUCOMB 

TABLE AND 

STORE ADDRESS 

IN CUSAVE 



♦ SET BIT » 
•IN SW2 FOR THIS* 

• CHAN-UNIT • 



POINT REG5 

TO CUSAVE FOR 

PROCESSING 



1ST CU 
POSITION 
. EMPTY 



SAVE THIS 

CHAN-UNIT 

ADDRESS 



* THIS 

CU ALREADY 
•.RECORDED . 



ALL 
CU AREAS 
. TESTED 



«»*#H5*»»*»»»»* 

SET CUSW 

FOR NEXT CU 

POSITION AND 

POINT TO NEXT 

CUSAVE 



• TURN OFF 80 » 
BYTES PROCESSED* 

* SWITCH * 



CU IN THE 
SET BEING 
.PROCESSED. 
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Chart LG. 



EREP2715 - Count Channel-Unit and Area Stat ion- Device Combinations 
(Part 2 of 2) 
Refer to Chart 18. 



POINT REG5 

TO CUCOMB 

TABLE 



G0L00P7 

»«»*»A3* 
♦L00P7 



* UPDATE ADDR 

* TO NEXT 
•LOGICAL RECORD 



Bl ». 
.« THIS » 

CUCOMB 
POSITION 
. EMPTY 



CI *. 

.♦ COMB ». 
* FOR THIS 

CU ALREADY 
♦.RECORDED . 



POINT REG4 

TO CUCOMB 

TABLE FOR 

LATER COMPARE 

OF LIMITS 



.* 80 *. 

♦ BYTES • 

DONE SWITCH 
«. ON .* 



SAVE AS-DEV 

COMBINATION 

IN CUCOMB 

TABLE 



»»**D2******** 

SAVE ADDR OF 

CUCOMB TABLE 

FOR CU NOW 

BEING 

PROCESSED 



YES . 


* PADDED * 






RECORD 


.♦ 


X 








♦NO 




*LF * 






* C3* 


















NEWLAB 


X 




#»»»»D3»**««*»* 




• 


RESTORE REG5 


* 




TO ADDRESS OF 






COMBINATION 






TABLE BEING 




* 


SEARCHED 


»* 



♦ E2 ».. 

NXTENT 



B4 ♦. 

• WAS ♦ 
ERR MSG 
ALREADY 
PRINTED 



SET SW3 

TO INDICATE 

ERR MESSAGE 

• PRINTED * 



♦ D5 
•3E20I MORE 
THAN FOUR DEVICE 
ADDRESSES. ONLY 
FIRST FOUR PROCESSED. 



UPDATE REG5 

TO POINT TO 

NEXT ENTRY IN 

CUCOMB TABLE 



♦ D3* 

♦ * 

WAS880A 



•UPDATE REG5 TO 

• NEXT CUCOMB 

• TABLE FOR 10K 

• OR GT LOK 
« PARTITION 



RESTORE ADDR 
OF CU NOW 

BEING 
PROCESSED 



F2 ». 

.♦ IS ♦ 

THIS 
POSITION 
. EMPTY 



G2 *. 

.♦COMBI- ♦ 
• NATION 

ALREADY 
•.RECORDED 
•.HERE .* 



G3 ♦. 

.* LAST • 

ENTRY 

ALREADY 
.RECORDED 



• YES 



X 
E2 • 



*#*»»H3*»»»»*»^« 

• STORE CU 
•COMBINATION IN 

• CUCOMB TABLE, 

• SUBTRACT 1 

• FROM COUNTER 



♦•H4»»»«^»* 

• SET SW TO • 
SHOW AS-DEV 
COMBINATION 

LIMITS 

• EXCEEDED • 
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Chart LH. EREP2715 - INITREG, PRT, and RTNHEX Subroutines 
Refer to Chart 18. 



*B1 

LA-E5 

LB-F5.J2 

LC-E2.F5 

LD-E4.F5.G4 

LE-J3 



#C1*«»«* 
L00P7 



»B2*»***« 
INITREG 



INITREG 

»*»**C2*******»» 
» SET REGS AND 
» SWITCH TO 

* * PROCESS LEFT 

* *SIDE OF RECORD 

* * SAVE REG LINK 



«»»*B3»»*»» 
PRROUT 

PRINT 

A 
LINE 



. 


• » *•*•*»#****»***»• 




» 


, * 


• 


'. !..*- D2 * 

x. « * 






• NO 




. *»*• 






L00P7 X 










*»#»*D2**»»»*»*»« 






X 








»»D3»***»»**« 




* POINT TO NEXT * 




RETURN TO 




» (OR FIRST) * 




CA.LER 




♦4-BYTE LOGICAL * 


« 








* RECORD * 









BYTES 

PROCESSED 

. SWITCH . 

». ON .* 



28 

BYTES 

.PROCESSED, 



• PICK UP BYTE 
•FOR CONVERSION, 

• SET FOR TWO 

• HALF BYTES 



GET LOW/HIGH 

ORDER 4 BITS 

INTO REG5 



LE-D4 
LF-C3 




YES .•" RIGHT 
». SIDE 






•.PROCESSED 






"•NO 






* * . 


D0NE80 ) 
*»G1»« 


( 


*• •• • . 

• Fl» 

RTSIDE X 

##G2»»«**» 


* TURN ON • 
• 80 BYTES * 

* PROCESSED • 
• SWITCH • 


»* TURN OFF 

» PROCESSING 

» LEFT SIDE 

* SWITCH 



#»»»H1****»»»* 

BRANCH 

VIA REGISTER 

LINK »J1 



« SET REGS TO 
» PROCESS RIGHT 
•SIDE OF RECORD 



♦RECORD • 

TYPE EQ 

CURRENT 

TYPE 



G3 ». 
• • • . 

TYPE EQ 



RECORD 

TYPE EQ 

CURRENT 

•.TYPE .» 



*##»»t4»**»***»»* 


* 


»**»E5*»»»«»«* 


• LOAD REG • 


* 


DISPLACE INTO 


• BRANCH FROM • 


•HEXTBL TO PICK 


• SVWR40 AS BR ♦ 




UP EQUIVALENT 


• ADDR FROM BY7 ♦ 




PRINTABLE HEX 


• IN ROOT PHASE • 




CHARACTER 


I x 


***•««**•**•*»* 


X 








•JJ • 








» C5» 




X 






**»*F5«««»*«*» 






STORE THE 


BY7 




CHARACTER IN 






PROPER 


BY7 SKIPS TO NEW PAGE 




POSITION IN 


AND PRINTS HEADER. IT 




HEXAR 


RETURNS TO EITHER 




. BLOCK FOLLOWING BALF 


* 




TO INITREG IN A GIV 


EN 






ROUTINE IF 80 BYTES 








HAVE BEEN PROCESSED 








OR 




X 


„ BLOCK FOLLOWING BALF 


I 


G5* **. 


TO PRT IN A GIVEN 






ROUTINE IF 80 BYTES 




►** FULL '• 


HAVE NOT BEEN 




BYTE 


PROCESSED. 




*.CONV 


ERTED.» 



•Jl 

WHETHER OR NOT 
THIS ROUTINE IS ENTERED 
AT INITREG OR LO0P7, THE 
RETURN IS TO THE CALLING 
ROUTINE AT THE BLOCK FOLLOWING 
THE BAL TO INITREG, EXCEPT 
WHEN BAL IS TO L00P7 FROM 
LABEL G0L00P7. 



BRANCH 

VIA REGISTER 

LINK «J1 



INSTRUCTION IS MODIFIED 
BY EACH NON-TYPE 
ROUTINE TO TEST FOR 
ITS PARTICULAR TYPE. 
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Chart LJ. EREP2715 - CUTOHEX, CONV4, DASDTST, TIMEDATA, and BLK1 Subroutines 
Refer to Chart 18. 



«»A3****** 
DASDT.ST 



#»A5»***»* 
TIMEDATA 



•PICK UP CHANNEL* 
» NUMBER FROM * 
• ERROR RECORD • 



CONVERT CHAN 

NO. TO PRINT^ 

ABLE HEX 



***»*D1********* 
« MOVE CHAN NO. 

* TO PRINT LINE, 

* GET UNIT ADDR 

* FROM ERROR 

* RECORO 



* CONVERT UNIT 
♦ADDR TO PRINT- 

* ABLE HEX 



» PICK UP FIRST 
* ERROR BYTE OF 
•LOGICAL RECORD 



CONVERT BYTE 

TO PRINTABLE 

HEX 



• MOVE 1ST BYTE 
•TO PRINT LINE, 
« PICK UP 

• SECOND BYTE 



CONVERT 2ND 

BYTE TO 

PRINTABLE HEX 



RECORD • 
FOUND 
•CONDITION.* 



•MOVE LEFT SIDE 

• TIME STAMP 

• AND DAY TO 

• PRINT LINE 



BYPASS X 
»**»»E3»» 
•UPDATE1 



UPDATE 

DISK 
ADDRESS 



**«»E4«»»***»* 

RETURN TO 

LINK ADDRESS 



» DOING • 

LEFT SIDE 
*.OF RECORD.* 



MOVE RIGHT 

SIDE TIME 

STAMP AND DAY 

TO PRINT LINE 



MOVE UNIT 

ADDRESS AND 

STATION ID 

TO PRINT LINE 



• MOVE 2ND BYTE 
♦TO PRINT LINE, 

• PICK UP THIRD 

• BYTE 



##**F3*»**»*»* 

RETURN TO 

LINK ADDRESS 

MINUS 10 



TO RE-EXECUTE 
THE BALR TO 
READREC. 



»»G1»*«*»»» 

RETURN TO 

CALLER 



BLANK OUT 

THE OUTPUT 

AREA 



•**»*H2********** 


•••**H3******* 




•RTNHEX 


• MOVE THIRD * 




• BYTE TO PRINT *.... 


....X» CONVERT 4TH 


• LINE, PICK UP * 


* BYTE TO HEX 


• FOURTH BYTE * 









MOVE FuURTH 

BYTE TO 
PRINT LINE 



»*J5«*»*»»# 

RETURN TO 

CALLE-R 
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Chart LK. EREPASSM - Area Station-Device Summary Phase (Part 1 of 4) 
Refer to Chart 18. 



#A1**»*«»*«* 
START * 



START 

#**»»B1»«»»*»**» 
♦SET BASE REGS, 
•SET ROOT PHASE 
» TO MOVE IN 

* 2715 ERROR 

* LOG HEADER 



* J4* 

PHASEBEG X 

#««**C1*»*«»**** 

* INIT TABLE, 

* SWITCHES, 
•COUNTERS, SAVE 

* AREAS, AND 

* SEARCH LIMITS 



ASEQUAL X 

* MOVE AS-DEV 
« INTO TABLE, 

* ADD 1 TO COMB 

* COUNTER TO 

* TEST IF 10K 



* SET SW2 
TO SHOW 
•END OF TABLE 



ASEQUAL6 

*»*»*C2********* 
•INERROR LN 

• GET ERR TYPE 

• TO DISPLC IN 
•TABLE SUBENTRY 
«*••**••**••***» 





Dl 


* 






*»***D2********** 










• ADD 1 TO 


» 




.• ANOTHER • 


. 


\IO 


♦PROPER SUBENTRY* 




. CUU EXIST 






• (ERROR COUNT) 










. 


• IN TABLE 


« 




• . •• 




X 


* 


* 




*'« 


♦ YES 
















• JD • 














• C3« 




• 












» • 




..* LL 












* 




* H5* 










TCLR 








X 




UP 


X 






►#»*E1********** 




*«*«»E2*** ******* 


• 








* UPDATE PTR TO 






INITIALIZE 






* NEXT ENTRY IN 






FIRST TABLE 


*. 




♦TABLE, SET REG 






ENTRY AND 






•RETURN TO ADDR 






CU SAVE AREA 






* OF CHECKTAB 














»*«*»»**4 


»**•••*#* 




; 


: 






) 


< 






Fl *. 






*»»»*F2********** 










♦L00P7 LN* 




• CU • 




fES 






• 


AS-DEV 


• 




* UPDATE PTR TO 


» 




•COMBINATION* 






* NEXT LOGICAL 






• GT 


ioo.« 




. 


*(4 BYTE 


RECORD* 



♦A4****«* 
PROCESS 



SET NEXT 

TABLE ENTRY 

TO ZEROS 



»B4****** 
NOCLEAR 



* C3 
NOCLEAR 



* TURN OFF 
END OF TABLE 

* SWITCH 



#C5***» 
READ 



* G3 

* 

WAS880 



X 

• * 

* G3 * 



READ AN 
80-BYTE 
RECORD 



E3 *. 

* IS 
THIS A 
PADDED 
RECORD 



DOING 
LEFT SIDE 
.OF RECORD. 



* IS * 

IT AN 

F AREA 

STATION 



##»F4******* 
BRANCH VIA 
REG RETURN 



TURN OFF 

80 BYTES 

DONE SWITCH 



POINT TO 
BEGINNING 
OF TABLE 



END 
OF TABLE 
.SWITCH ON. 



* HIGH 

DISK LIMIT 
*. REACHED . 



.* THIS CU 
*. PREVIOUSLY 
♦.PROCESSED. 



* 1ST TIME * 

THROUGH FOR 
*.THIS CUU .* 



H5 *. 
.* THIS ♦. 

CU ONE 
NOW BEING 
.PROCESSED. 



ASCHECK .♦. 

Jl *. 

.* IS *. 
.* AS-DEV * 
*. COMBINATION 
*.IN TABLE .* 



IS *. NO 
TABLE .*... 

EMPTY .* 



UPDATE PTR 

TO NEXT 
TABLE ENTRY 



MOVE CU TO 

PRESENT 

PROCESSING 

AREA 



POINT 

•INITREG LN* 

* SET PTR TO "** 

* LOGICAL * 
♦(4-BYTE) RECORD* 
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Chart LL. EREPASSM - Area Station-Device Summary Phase (Part 2 of 4) 
Refer to Chart 18. 



* 




** 






























. 


*l K- 


-G3 




• 


LN- 


-F3 


CUPRINT 


X 






#*«*«Ai 








♦G0BY7 






LN 



A2 ♦ . 
.* THIS ♦ . 

NO .♦ LOWEST 
...*. ENTRY LEFT 
••IN TABLE . 



#»»»B2*»*»*»»* 

MOVE ENTRY 

TO OUTPUT 

AREA, SAVE 

LOWEST ENTRY 

POINTER 



••#*A3«»**»*»* 
MOVE CURRENT 

ENTRY TO 

LOWEST ENTRY, 

PRINT DEVICE 

TO HEXAR+1 



CONVERT DEV 

TO PRINTABLE 

FORMAT 



***»A4*»****** 

MOVE FO 

AREA STATION 

TO OUTPUT 

AREA 



FOMSG X 

»»*»»B4********* 

• MOVE ^RECORDS 

• PROCESSED' 

• TO OUTPUT 
» AREA 



♦ SET UP CHAN, 
» UNIT, AND ID 

♦ IN OUTPUT 

♦ AREA IN 

♦ PRINTABLE HEX 



INCREMENT 
POINTER TO 
NEXT ENTRY 

IN TABLE 



X 
H2 * 



•»**»C4* 

» CONVERT TOTAL 

* FO'S (OR Fl'S) 

* TO PRINT 

* DECIMAL, MOVE 
•TO OUTPUT AREA 



* IS AREA ♦ 


NO 


STATION 




*. AN FO .* 












♦YES 




X 




*»C5»»»»#»* 








TURN ON ♦ 


FO SWITCH 


* • 




* » 




X 










ADD 1 TO FO 




AREA STATION 




COUNTER 


* . 






***•*•*•****•*• . 




X 





SET PRINT 

LINE WITH 

•AS-DEV 

AND FO 

THROUGH F9 



IS AREA 

STATION 

AN Fl 



F1CONV. 

*«*»*F3*»*****» 

* MOVE 'Fl' 

« AREA STATION 

* TO PRINT 

* LINE 



F4 ». 

.♦ GT 60 ♦ . 

RECORDS *. NO 

READ IN 

10K .♦ 



T .*. 


. TESTASD 




Gl *. 


..*..G2»»*«*»< 




.*GT 100 ♦ . 






* AS-DEV *. NO 


X ♦ SET PTR TO 




COMBINATIONS .*... 


,...X^ BEGINNING 






• OF TABLE 


• 


*. .* 


* 


* 


♦ YES 


♦ ♦ . 




X 


• H2 ♦... 










♦LM ♦ 


• *•• X 




• B4^ 


COMP .♦. 






H2 ♦. 






. ♦ ♦. 




PRG100 


.♦ IS 


♦. 




♦. TABLE 


.♦ 




♦. EMPTY . 


♦ 



PRINT MSG 

3E30I 

♦ K3 



ADD 1 TO Fl 

AREA STATION 

COUNTER 



MOVE Fl 

TOTAL TO 

AREA FOR 

CONVERSION 



*«*»*H4i 

♦SET TEST FIELD 

♦ FOR EXISTANT 

♦ CU AND GT 

♦ 100/60 

♦ COMBINATIONS 



TEST100 .♦. 

H5 ♦. 

.♦GT 100 ♦. 
NO .♦ AS-DEV ♦ 
...♦.COMBINATIONS 



X 

♦ LK ♦ 

♦ E2^ 

UP 



VALID 
TABLE 
ENTRY 



SAVE CU DONE 

PROCESSING 
FOR LATER USE 



IS FO 

SWITCH 

ON 



♦K3 
•3E30I ONLY 60 
DISTINCT ENTRIES 
SUMMARIZED DUE TO 
10K PARTITION SIZE* 
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Chart LM. EREPASSM - Area Station-Device Summary Phase (Part 3 of 4) 
Refer to Chart 18. 



••♦*A2**»»*«««* 
MOVE AREA 
STATION INTO 
TABLE, ADD I 
TO 60 COUNTER 
FOR 10K CHECK 



GR100 X 

»«**B1«*»*«*« 
READ 



READ A 
RECORD AND 
CHECK CUU 



TURN ON 
SWITCH FOR 
NEW AREA 
* STATION 



PRG100 
PRT* 



PRINT GT 100 

AS-DEV COMB 

MESSAGE 



* CI *..'. 

* * . 

LOOP100 X 

»***«ci*»****»**« 

* SET POINTER * 

* TO START • 
« OF TABLE » 


x! 


CHECK 


X 
AS .*. 
Dl *. 
.• IS ». 

* ENTRY ». 

SAME AREA .* 
». STATION .» 



IS • 
COUNTER 
.SET TO 60.» 



TURN ON 
SWITCH FOR 
60 RECORDS, 
* READ 



.*. 


ASM0VE6 X 


El ». 


***»*E2******«* 


.* IS *. 


»INERROR L 


TABLE • . YES 




ENTRY EMPTY ...... 


* GET ERR TYPE 




* TO DISPLC IN 


*. ,* 


•TABLE SUBENTRY 



TESTG100 

#**»»C4*»»»»»**« 
» SAVE TABLE 

* START ADDR, 
•SET HIGH ENTRY 

* FOR TABLE 

* COMPARE 



TABLE 
ENTRY 
EMPTY 



INCREMENT 

TABLE POINTER 

TO NEXT 

ENTRY 



ADD 1 TO 

ERROR AND 

STORE IN 

TABLE 



PROCGTAB .*. 






.*. 


E4 ». 






E5 *. 








.• ENTRY *. 


.« VALID • 




^0 


.» LOWEST » 


*. TABLE 






*. ONE LEFT 


•. ENTRY .« 






•. IN .• 








♦.TABLE.* 






X 




• YES 




*LL * 
* K2» 

FOTEST 


♦ YES 


MOVEGR X 






X 


»»»*»F4*»»»*»*» ■►* 




**»»»F5*«««***« 


•SAVE ENTRY PTR 








• AND PROCESSED 






• MOVE ENTRY TO 


• ENTRY, SET 






• LOW AREA, 
» SAVE LOWEST 


• POINTER TO 






♦ OUTPUT 


t * 




• ENTRY POINTER 



• H5» 
UPGREAT 



*»G2******»»** 

INCREMENT * 
TABLE POINTER • 
TO NEXT ENTRY • 



CONVERT ENTRY 

TO HEX AND 

PRINT IT 



INCREMENT 
TABLE POINTER 
TO NEXT ENTRY 



SET PTR TO 

NEXT 4-BYTE 

RECORD 



* NEW *. 

AREA 
•STATION SW.^ 



•SET NEXT ENTRY 
♦TO ZEROS, TEST 
♦ PROCESSING 



PERFORM 

TEST 

PROCESSING 
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*»#*A1«****» 
DASDTST 



NO RECORD * 
FOUND 
.CONDITION.* 



CI ». 
.• UNRE- «. 

COVERABLE *. YES 
I/O .»..X 
. ERROR .* 



»*A2***»* 
RTNHEX 



•»B2**»**»* 
CONVERT 

FULL HEX 
BYTE TO 

PRINTABLE 
FORMAT 



• A3******' 
INITREG 



INITREG 

*»«#*B3********* 
» SET PTRS TO 

• START AND END 
» OF DATA ON 

» LEFT SIDE OF 

* RECORD 



CONVERT AREA 

STATION TO 

PRINT HEX 



•••»C2***»* 
RETURN 



TURN ON 
LEFT SIDE 
SWITCH 





»****C5***»****** 


****C4********* 


» MOVE AREA » 




« STATION TO * 


LOOP 7 * 


» OUTPUT AREA, * 




• SET REG FOR * 




« 10 ERR RCDS * 



X ERRMSG3 
.*. 
Dl ». 

.*" 2715 **. YES 
*. ERROR .* 






•. RECORD .* 






"•NO 






YPASS X 

««»»»E1#*»»»#*»»» 
•UPDATE1 JK* 

* UPDATE DISK "» 
» ADDRESS * 


) 
**»«E2*< 

« RETl 


: 

JRN 



«F1*»#»»« 
RETURN 
TO LINK 
ADDR-10 



* SET PTR TO * 
•NEXT (OR FIRST)» 
•LOGICAL RECORD • 



E3 •. 

.•AS-DEV «. 
•COMBINATION*. 

COUNTER AT .• 
». 60 .» 



»»*»D5******** 

CONVERT 1 

ERROR RCD TO 

PRINTABLE 

FORMAT IN 

OUTPUT AREA 



•UPDATE PTRS TO • 
•OUTPUT AREA AND* 
• ERROR RECORD • 



ERRORS 
.PROCESSED. 



• Al» 
CUPRINT 



*G1**»*«* 
INERROR 



•*«H1»»*****» 
PICK UP ERR 

CODE FROM 
LOGICAL RCD 
1ST HALF OF 

3RD BYTE 



»•*• J !*•**•*•• 

DIVIDE BY 8 

TO USE AS 

DISPLACEMENT 

INTO TABLE 

FOR ERR NO. 



.« IS THIS 
. AN ERROR 
•LOG RECORD. 



»»*»J2»»*»»*» 
RETURN 



NO .* DONE • 
...•. PROCESSING 

♦.THIS SIDE.* 



WAS 
IT LEFT 
SIDE 



PRF 


10UT 




JJ 














PRINT 








* 


THE 
LINE 




* 






X 




















H5 •. 




















END OF 
PAGE 






NO 


*. 









TURN ON 80 

BYTES DONE 

SWITCH 



TURN OFF 

LEFT SIDE 

SWITCH 



»»*#K4*»******* 

SET PTRS TO 

START AND END 

OF DATA ON 

RIGHT SIDE 

OF RECORD 



SKIP 

TO NEW 

PAGE 



*.K5»**»* 
RETURN 
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*A1«**»» 
BEGIN 



READDISK 

•*««*B1»»*****» 
•FRSTSTEP M 

*~ SET UP DISK 

* HEAD AND 

* TRACK COUNT 



h*#»A2****»»*» 

TURN ON 

BAD FILE BIT 

AND SET CCW 

FOR WRITE 

ON SYSLOG 



»#«#»A4*»*»»»**» 

• MOVE ADDR OF 
•1ST OBR RECORD 

• FROM HDRSAVE 

• TO DISK 

• SEARCH 



»»*C1******** 
MOVE SYSREC 
HEADER ADDR 

TO DISK 
SEARCH ADDR 



TURN ON NO 

CLEAR 

BIT 



READ THE 

USER TRAILER 

LABEL 



.* IS *. 

LABEL AN 

EREP HIST 

. LABEL . 



WRONGTP X 
»*»»«C5«« 

•MESSAGE 



TEST FOR 
READING 
ERRORS 



WRITE WRONG 

TAPE MESSAGE 

ON SYSLOG 



EXIT1 X 
•***»D2***** 
•LABLROUT 



INITTAPE 

##»*»D<t**» 
•LABLROUT 



SAVE 

HEADER 

INFORMATION 



####E2 ♦*«»*»«•• 

* SVC 1 FETCH • 
» EREP, ENTER • 

• AT OPTION • • 

♦RETURN TO EREP 
FOR OPTION HANDLER 
PHASE OPTION HC-A3. 



OPEN * * 

EREPNEW • *X. 

DTFPH » ♦ 



NEW 
OR UPDATE 
. TAPE 



BACKSPACE 

OVER 
TAPE MARK 



TRAILRCK X 
««**#G4*»* 
•LABLOUT 



WRITE 
•HDR2' 
RECORD 



FORWARD SPACE 
TO STO 
TRAILER 



STORE 
BLOCK 
COUNT 



**«F5»»*»»**» 

CHANGE 

TAPELBL CCW 

TO BACK 
SPACE FILE 



BACKSPACE 

TO WRITE OVER 

TRAILER 



HI *. 

• 1ST 

GUARD 

BYTE 

FOUND 



Jl ». 

• 2ND «. 

GUARD *. YES 
BYTE .*..X 
FOUND .» 



• NO 

x! 

X 
A2 • 



**•••••»* 



CLEAR OUTPUT 
AREA AND 

SET SW 
BYTE TO 



CHANGE 
TAPELBL CCW 
TO READ OP 



•lablrout mk* 

*~ "" "read " • 

* standard * 

• TRAILER * 



• Gl» 
CONVERT 



*MD » 
• Gl* 

CONVERT 



OS ». YES 
HISTORY ...... 

TAPE .* 
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TURN ON 

LAST RECORD 

SWITCH 



*A5 
MD-F3 
ME-E4 
MF-C3,H5t 



• 


LAST 


* 


NO 




RECORD 








BAD 
*. .» 


'* 








• YES 








) 


< 






AO 


•Cl*»*»*» 
RCFND 


MJ* 










PRINT BAD REC 






MESSAGE 




* '. 


•* 


• 








Dl 


».. 


X... 







BALUPDT X 
*»»»*D1**« 

•UPDATE 



SYSREC 

END OF 

FILE 



DISK 
EXTENTS 
.EXCEEDED 



• B2 
MD-D2»G5 
ME-Hl 
MG-J2 
MH-F4 



• C2 
MG-E4,F4 
MH-H2»J2 



»#«*D2**»»» 
* CHECK 



X 

A3 



.« UNRE- *. 
.COVERABLE I/O. 
». ERROR .» 



*H2««»*« 
RETURN 



BREAK 

CCW 
CHAIN 



BALERROR 

#»»»»K1» 
•ERROR 



PUT ERROR 

MESSAGE ON 

CONSOLE 



B3 •. 

• ANY • 
RECORDS 

TO BE 
PRINTED 



NO 
•MD-A2.F3 



TURN ON 

LAST RECORD 

SWITCH 



D3 •, 
.• ANY *. 

VALID 

RECORDS 

.PROCESSED. 



CALCULATE 
TOTAL LENGTH 

OF RECORD 
AND STORE IT 



EXCP 
EREPNEW 

WRITE 
RECORD 



E2» 



ERRMSG X 

*»*»*E 3* »**•*•*» 

• MOVE INVALID 

• RECORDS 

• MESSAGE 3E18I 

• TO .OUTPUT 
» AREA 



TURN ON 

LAST RECORD 

SWITCH 



WRITE 3E18I 

MESSAGE ON 

SYSLOG 



TURN ON 

NO CLEAR 

BIT 



ZERO I/O 

OUTPUT 

AREA 



•TURN ON END^ 

OF-REEL 
• INDICATOR 



» Bl» 
TRAILER 
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MB-D3,F4,H3,H4 



CONVERT 

BLOCK COUNT 

TO DEIMAL 



NEW OR 

UPDATE 

TYPE 



*«*C2******* 

* CLOSE 

* EREPNEW 
•CLOSE FILE 



LAST * 
RECORD 
.PROCESSED.* 



»**»C3 ********* 
MOVE ERROR 
MESSAGE TO 
OUTPUT AREA 
INDICATE TAPE 
WAS BUILT . 



•BACKSPACE OVER 

* TAPEMARK AND 

* TRAILER 



WRITE 3E15A 

TAPE FULL MSG 

ON SYSLOG 



MOVE TRAILER 

TO OUTPOST 

AREA 



CONTINUE 

*«##«F1******* 

* CHANGE CCW 

* TO WRITEt 

* PUT BLOCK 

* COUNTER IN 

* TRAILER 



BACKSPACE TO 
REWRITE 
TRAILER 



**E3******* 
* TURN ON * 

* NEW TAPE * 
SWITCH, RESET 

*BLK CNT TO * 



* E3» 
NEWTAPE 



» WAS * 

END OF REEL 
*. FOUND .* 



CHANGE 

EOF TO 

EOV 



NOTEND X 

♦LABLROUT ** MK 

♦REWRITE SYStIm 

* AND USER 

* TRAILERS 
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LAST 

RECORD 

.PROCESSED. 



0S150NLY .». 

Bl *. 

.•OBR/SDR*. 
YES .» AND/OR * 
...«.2715 RECORDS 
*. ONLY .* 



B2 *, 
.* WAS • . 

* WRITE RTN 
PREVIOUSLY 
*. USED 



END OF 

FILE 
RECORD 



CK0S2715 

»»»«*B5»*»»»» 
* INSERT DOS 
LEVEL. SET 



» LEVEL. SET 
X* FIRST SWITCH 
» BYTE 



**C1******* 

INDICATE 
ALL RECORDS 
ON FILE BAD 



SET DISK 

TO FIRST 

OBR RECORD 



•READREC 

•***READ FIRST 
* RECORD 



TURN OFF 
WRITE RTN 
INDICATOR 



C3 *. 

.•OBR/SDR*. 
.» OR 2715 * 
.ONLY RECORDS 
». FOUND .* 



TEST FOR 
READING 
ERRORS 



CONVERT 

**G1******* 
* INDICATE 
« BAD RECORD 
* NOT 
» FOUND 





D3 


#. 






.* ANY • . 




NO 


.* GOOD 




. . .* 


.S/370 RECORDS 




*. IN 






•.FILE .* 




X 








•YES 




♦ MB * 






* E3* 
























ERRMSG 










X 






••E3*»«»»»» 








« TURN ON 




* 


EOF 
* INDICATOR 






* 


* 




) 


< 












F3 ♦. 






.* ANY ». 




NO 


• RECORDS 






STILL TO BE 




•. WRITTEN . 










X 








• YES 




*MB * 






» C3» 









OBR/SDR 
RECORD 


*I 


YES 








'•NO 






X 

D5* **. 

T/P 
RECORDS 


• . 










• YES 






"x... 







• SYSTEM • 

/370 SWITCH 
». ON .♦ 



YES .* OBR/SDR 
...». BAD REPORT 
♦. SWITCH . 



•»G5»*«»*»» 
♦ SET ONLY ♦ 

» OBR/SDR OR 
2715 RECORDS 

• RECEIVED 



HI «. 
.» DO ». 

RECS ON 
TAPE=RECS 
. READ ON . 
•.DISK .» 

**»YES 



»*J1»«»*»»» 
INDICATE 
NUMBER OF 

RECORDS 

PROCESSED 

AGREE 
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RECORD *. NO 
NUMBER .»... 
.SPECIFIED.* 



* NUMBER *. NO 

OF RECORDS .*..X 
*. SPECIFIED.* 



GUARD 

BYTE 

PRESENT 





Dl *. 




.* VALID * 


YES .* 


S/370 CPU 




REC BEING 




.PROCESSED 






X 






• NO 






A3 * 


. 












X 


CPUDUMMY .*. 




El *. 






NO .* 


S/370 


. . .*. 


RECORDS 


♦ 


. FOUND 






X 






•YES 






HI ♦ 


• * 






*** 


* 


STDUMCPU X 


»»F1****** 








SET 




DUMMY CPU 


* 


TYPE 



X.... 



SETN1ZRO 

**««*G1*»***«* 

• SET RECORD 

* NUMBER 

• COMPARISON 

♦ TO ZERO 



»*A3***»»*» 
• INDICATE • 

* OBR/SDR OR • 
2715 NOT ONLY 

* TYPE FOUND ♦ 



B3 ». 
.* ANY *. 

.» S/370 • 
.RECORD FOUND 
». YET .* 



.». 


CHECKN2 X 


C2 •. 


*«C3*»«**»» 


• NEW «. 




REC NO = ». NO 


» TURN OFF 


CURR REC ...... 


• FIRST RECORD 


NO. .» 


» INDICATOR 



D2 •. 

* OLD 
CPUID 
EQ NEW 
CPUID 



E2 «. 
.« LAST *. 

YES .» REC TYPE 
...•. EQ NEW REC 
». TYPE 



• NO 

!x.. 



.» 1ST 
NO .» RECORD 
...». OF NEW 
• . SET 



»*A4»»»*«»* 

• SET 
INDICATOR 

THAT S/370 
RECORD 

* FOUND 



SAVE INFO 
FOR RECORD 

READ FOR 
SYSREC FILE 



»«C4***»»«* 

• SAVE REL 

• NUMBER AND 

NUMBER OF 

» RECORDS IN 

•RECORD SET 



A5 *. 
.« IS •. 

.♦ THIS 1ST ». NO 
». REC OF NEW .«... 
*. SET .* 



« MOVE DATE, 

• SERIAL NO., 
•CPUID AND MOVE 

• TO NEW REC 
» FORMAT 



.« LAST •. 
• AND * 

CURR NUMBER 
». RECS .» 



YES 


.* 


1ST 






S/370 REC 


* 


* 


FOUND 


X 










♦NO 


MD • 






Dl» 






« • 












ESET 




X 

E4* *». 

♦ ANY ♦ 






RECORDS 






TO BE 




• 


WRITTEN 



SETNLEN2 

» INDICATE 
» REC NO. 
* EQ NO. ' 
• GROUP 



IN 



*««"""""« 








• HI ♦ ♦ « « 




» • . • H2« 






• H2 


REC X 


MD-F5 


**H1******* 


MF-B1,D3 


• INDICATE • 




* BAD ♦ 




• RECORD • 




» FOUND ♦ 




* * 





RECORD *. 
GROUP 
.COMPLETED.* 



*«G4**«»**« 

♦ INDICATE • 
» REC NO. NOT « 

EQU TO NO. OF 
• RECORDS IN • 

* GROUP • 



INCREMENT 

RECORD 

NUMBER 

BY 1 



GET TIME 

FROM OLD 

FORMAT 



••**D5 ••»•»»•* 
CONVERT TIME 

FROM TIMER 

UNITS TO HRS, 

MINUTES, AND 

SECONDS 



PUT TIME 

IN OUTPUT 

AREA 



F5 ». 

.♦OBR/SDR*. 
• OR 2715 • 

TIME BEING 
•.CONVERTED.* 



X 
• MB 



• Kl 
MG-G1 
MH-F4 
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• IS *. YES 

REC NO. GT .».-.. 
*. 18 .• 



RECORD 

NUMBER 

EQ 1 



MCRRMAX 
CCH2RTN 
READ 



REINITIALIZE 

RECORD NO. 

TO ZERO 



» ANY » 
RECORDS 

TO BE 
WRITTEN 



» DAMAGE 

ASSESSMENT 
• . BYTE 



**EL»****** 

» SET * 

INDICATOR 

DAMAGE 

ASSESSMENTS 

• BITS ON * 





D3 ». 




.« LAST ». 


NO 


.« NON OBR/ 




. SDR OR 2715 




«. REC 




».S/370.« 


X 






•YES 


♦ ME * 




» HI* 












BADREC 






X 




•*E3»«»««»* 




»• SET KEY 




FIELD REC 




» LENGTH 




* 



#B5»*»»»* 
SET KEY 

FIELD 
RECORD 
LENGTH 



** C 5 »*««»♦ » 

MOVE DATA 

FOR 

MCRR 

RECORD 



MCRRCK 
NU .♦* 

X . 

MH « 
A2» 



RECORD 

FOR 

MCRR 



»**F3«**«»**» 

MOVE SERIAL 

NO. AND 

CPUID TO 

OUTPUT AREA 



«»*«#F 4* »*»*** 

» MOVE DATA 
» FOR MCRR 
* RECORD 



*»D5»»»»**» 

ALIGN 2ND 

HALF OF 

OLD 
FORMAT 



2715 

REC NO. 

2 



»»F5*»***** 

RESET 

TO NO. 1 

2715 

» RECORD » 



»*»»G1****»**»» 

SET KEY FIELD 

MOVE DATA 

FOR MCRR 

RECORD 



RETURN2 

•«H1»»*»»«* 
» INSERT 

* DAMAGE 

• ASSESSMENT 

* BYTE 



PUT TIME 

ON 
FULLWORD 
BOUNDARY 



»#J1»***»*» 
SAVE NEXT 

RECORD 

PROCESSOR 

ROUTINE 



RETURN6 .». 

G4 *. 
.» DO *. 

NO .* RECORDS 
...*. ON TAPE EQ 
«. RCDS ON . 
♦.DISK .* 

'•YES 



* INDICATE » 

NO. OF RECS 

PROCESSED 

AGREE 



SETTWOSW X 

»*H5««**«*» 
* INDICATE 

* 2715 REC 
» NO. 2 

• PROCESSING 



PUT TIME ON 
FULLWORD 
BOUNDARY 



INDICATE 

WRITE 

ROUTINE 

USED 



.X. 
X 

• ME 



* B4« 
WRITE 
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145 
CCH REC 

NO. 3 



* INSERT 
DAMAGE 
ASSESSMENT 
BYTE 



C2 *. 

* MCRR 

REC 

EQ 329 

BYTES 



♦•D2****»* 

INDICATE 

MCRR REC 

GT 329 

BYTES 



IS ♦. NO 
CPU EQ .*... 
145 .* 





Gl *. 




• IS •. 


HIGH .* 


THIS MCRR *. LOW 




REC NO. .*..X 




8 .* 






X 


». .« 




*EQ • 


*ME » 




* Fl* 


* 










STDUMCPU 






X 


h»Hl»»*»»«* 




SET MAX * 




MCRR 145 * 




LENGTH TO * 




524 * 


* 


* 



SETLNGTH X 

•#*»»E2»*«**»*» 
« INCREMENT 

* RECORD 

* LENGTH 

* ACCUMULATOR 



* IS 

REC NO. EQ 
». 14 



SET MCAR 

LENGTH TO 

MAX 



* INSERT 
DAMAGE 
ASSESSMENT 
BYTE 



X 

**J1«***»»* 

* INSERT 

DAMAGE 

ASSESSMENT 

BYTE 



MOVE DATA 

FOR MCRR 

RECORD 



INCREMENT 

RECORD 

LENGTH 

ACCUMULATOR 



145 

CCH REC 
NO. 3 



♦F4»*»»»* 
SET MAX 
145 CCH 
RECORD 
LENGTH 



SETCODE 

**J2**»*»*» 
» SET NEW * 

* LENGTH CODE 
* AND INCLUDE 

* ASSESSMENT 

* BYTE * 



X 

♦ MB 



Bl* 
READ 
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MOVE DATA 

FOR MCRR 

RECORD 



ZERO 

MCEL 

RECORD 



SET KEY 
FIELD,MOVE 

DATA FOR 
MCRR RECORD 



RETURN* .*. 

C2 ». 
.* DID * 
NO .* CHANNEL 
...». FAIL TO 
• . LOG 



YES .* IS 

X..». CPU A 
». 155 



INDICATE 
CHANNEL 
FAILED 



SET REC 

LENGTH 

ACCUMULATOR 



* I PL *. 
OR END ». NO 
OF DAY .*... 
REC .» 



» SET KEY * 

FIELD, 1ST 

SWITCH BYTE 

AND REC 

» LENGTH * 



MOVE 

DATA 

FOR MCRR 

RECORD 



END *. NO 
OF DAY .*... 
REC .* 



***G2******* 

SAVE ADDR 

OF NEXT 

RCORD 

PROCESSING 

ROUTINE 



•*G3******* 

» SET KEY 

FIELD AND 

RECORD 

LENGTH 



CPU 

EQ 

155 



*»»J2******** 
ENSURE' ONLY 

1 OLD 155 

CHH RECORD 

PROCESSED 



X 

♦ MB * 

* A2* 

READON 



SET 
DUMMY 

CPU 
TYPE 
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*»A1***»*« 
MESSAGE 



»*##A5«*»*** 
* BADRCFND 



CLEAR 

RESPONSE 

AREA 



WRITE THE 

MESSAGE ON 

SYSLOG 



YES .* WAS * 

...♦.MESSAGE TAPE 
♦ . FULL .* 



» PREPARE TO 

* RE-ISSUE 
•MESSAGE 3E31A, 

• WRONG TAPE 
« MESSAGE 



B3 *. 

* IS » 

DISK A 

2311 OR 

2314 



*»*C3* ******* 
PUT 2314 IN 
HEAD, TRACK 

AND OTHER 
APPROPRIATE 

LOCATIONS 



OPEN 
IJSYSRC 
FILE 



♦MOVE I/O ERROR 
♦MESSAGE, 3E10A, 

♦ TO SYSLOG 

♦ OUTPUT AREA 



»#«»«C4* *#**»#*♦» 

• MOVE IN • 

• PRINTABLE ♦ 

• FORMAT THE DISK* 
•ADDR OF RECORD ♦ 

• IN ERROR ♦ 



♦WRITE ON SYSLOG^ 
♦ MESSAGE 3E10A ♦ 
♦WITH DISK ADDR ♦ 



♦ ♦••♦{^♦♦♦♦♦♦♦•^ 

♦ MOVE INVALID 
♦RECORD MESSAGE 

♦ 3E13I TO 

♦ OUTPUT AREA 



♦ MOVE IN ♦ 

♦ PRINTABLE ♦ 
♦FORMAT THE DISK^ 
♦ADDR OF INVALID^ 

♦ RECORD • 



♦WRITE ON SYSLST^ 
♦ MESSAGE 3E10A ♦ 
♦INVALID RECORD ♦ 



ISSUE FULL 

TAPE MESSAGE, 

3E15A 



WAS 
RESPONSE 
. MADE 



CHKRESP 

*««»*GU 

♦ CONVERT ♦ 

♦ RESPONSE TO ♦ 
♦CAPITAL LETTERS^ 
♦FOR COMPARISON ♦ 



♦ ACCEPT ♦ 
UNRECOVERABLE 

♦ I/O ERRORS ♦ 



*»*»f$*»» *♦♦»*♦ 
♦ RETURN ♦ 



*»#*E4^ 

RETURN 



RETURN 



.♦ WAS ♦. 


NO 


.MESSAGE TAPE . 




♦. FULL .♦ 










X 


♦ YES 


• •*• 




♦MA 




♦ C2 


X 








• MA ♦ 


EXIT 



****G4^^*^^ 
MSGOUT 



»**»»H4^ ***••♦• 

* • EXCP, • 

• ♦ CONSOLE ♦ 



***G5****** 
PRINTMSG 



♦ ^♦♦♦♦^ 
EXCP 
PRINT 



WRITE THE 

RESPONSE ON 

SYSLOG 



RETURN 
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Chart MK. EREPHIST - Subroutines 
Refer to Chart 19. 



(Part 2 of 2) 



#A1»«**» 
UPDATE 



*A2»*»»»* 
READREC 



»«A5*«»*»* 
LABLROUT 



Bl *. 

» DISK • 

RECORD 

NUMBER 

EQUAL 

». MAX .» 

**YES 



SET RECORD 

NUMBER EQUAL 

TO 1 



Dl ». 

* HEAD « 

NUMBER 

EQUAL 

MAXIMUM 



SET HEAD 

NUMBER EQUAL 

TO 



#»*F1*»***«*» 

ADD+1 TO 

EITHER HEAD 

OR RECORD 

NUMBER 



EXCP 
IJSYSRC 



»C5«»»* 
WAIT 
TAPE 



*02*»»»*» 

WAIT 

IJSYSRC 



*D5»*»** 
RETURN 



«E2»«»»* 
RETURN 
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32 1 1 Printer Support Programs 



Two programs are supplied to load the UCSB 
(Universal Character Set Buffer) and FCB 
(Forms Control Buffer) of the 3211 printer. 
SYSBUFLD is designed to execute as a job 
step within the user job stream. With 
SYSBUFLD you may load one buffer, both 
buffers on a single 3211 printer, or any 
combination of buffers on any of the 3211 
printers attached to the system. 

$$BUFLDR is executed as part of the IPL 
procedure and, along with the installation 



standard buffer loads ($$BUCB and $$BFCB) , 
must be available if 3211 printers are 
attached to the system. $$BUFLDR is loaded 
by the $IPLRT4 phase. It scans the entire 
PUB table and loads the FCB and UCSB 
buffers for each 3211 printer in the PUB 
table. When the buffers on the last 3211 
printer have been loaded, return is made to 
$IPLRT4. 



3211 Printer Support Programs 203 



Chart 20. 



3211 Printer Buffer Load 



( SYSBUFLD J 



READ IN 



o : 



Read a Card and Set Switches 



Charts NA and NB 



1. Read a control card. If end- of- file •—--—---■——-—---■— -—-^-— -—---■— -—«——----- 

2. Check the operation (FCB or UCSB) and logical unit (SYSxxx). 

Invalid operation: if non- LOG system — — —————i— -—--—--— 

otherwise, issue 1B01A and wait for operator response. 

Invalid SYSxxx: if non- LOG system ■""— — — — — —————————— - 

otherwise, issue 1B02A and wait for operator response. 

3. Check phase name. 

If invalid phase name or no phase name, with UCSB load, issue message 1B03I' 

4. Check optional operand. 

If FOLD or NOCHK and FCB load, issue message lBOnl (n indicates position 
of invalid operand). 



FCB 



FCBLD 




UCB 



FCB Buffer Load 



Chart NC 



1 . If card Load : 
Read until end of buffer reached. If more 
than 180 positions read, issue message 1 B03 1 * 

2. If phase load, Load phase. 

3. Load SYSBUFF1 to be sure that forms are 
positioned at channel 1 . 

4. Load FCB Buffer. 



K CANCEL ^A 
SVC6 J 



UCBLOAD 



\ ^ SVC 14 J 



jf cancel "\ 

V ^ SVC 6 J 



UCSB Buffer Load 



Chart NC 



1 . Alter CCW string to add optional operands. 

2. Load phase. 

3. If phase is not large enough for UCSB load, 
issue message 1B03I — — — 

4. Load UCSB Buffer. 



f CANCEL *\ 
\^ SVC 6 J 
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Chart 21. 3211 Printer IPL Buffer Load Programs 



Q 



Q. 



f $$BUFLDR j 



RELO 




IPL 3211 BUFFER LOADING 



Chart NF 



Searches the PUB table for 3211 entries, loads the FCB and UCSB with standard 
loads ($$BFCB and $$BUCB), and returns to IPL. 

1 . Save SYSLOG LUB for later printing of console messages. 

2. Scan PUB table for 321 1 entries. 

3. If no more 321 1 entries, return to $IPLRT4 

4. Point SYSUSE LUB to 3211. 



5. Load $$BUCB and load UCSB. If error occurs, call $$BUFLD2 

6. Load $$BFCB, align paper to channel 1, load FCB. If error occurs, 
call $$BUFLD2 

7. Print message 01261 $$BUCB and $$BFCB LOADED X'cuu'. 
Return to PUB scan. 



" * 

f SIPLR14 J 

IPL and Job Control, 
GY24-5086 



$$BUFLD2 



IPL 3211 BUFFER LOADING Error Subroutine 



Chart NG 



Tests for error type, issues appropriate message, and returns to next logical step 
in $$BUFLDR. 



1. 



If device is operational (power on and on- line), continue to step 2. 
If device is not operational, issues message, 0I28D DEVICE NOT 
OPERATIONAL, and waits for response. If response is not valid, issues 0I28D 
INVALID RESPONSE and again waits for valid response. 

a. If response is IGNORE or EOB, return to check next PUB 

b. If response is RETRY, return to step 5 in $$BUFLDR ! 



Print message 01271 UCB (or FCB) LOAD FAILURE and substitute dashes for 

failing load name in message 01261. 

If UCSB failure, return to step 6 in $$BUFLDR- 

IF FCB failure, return to step 7 in $$BUFLDR- 




© 
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Chart NA. SYSBUFLD - Read Card and Print on SYSLOG and SYSLST 
Refer to Chart 20. 



»*»*»ci*»**»»* 


*»» 


»C2 


* LOAD BASE 


• 


NC-J2 f J4 


« REGISTER 




NE-D4 


* AND 






» RELOCATE 






• ADCONS 


«#« 




*»«♦ I 


















* C2» 






• »«* . 






READIN X 







IS 

UNIT 
SYSLST 



«■ IS 

UNIT 
*. SYSLOG 



NO .* UNIT 
...«. SYS000 TO 
». SYS221 . 



PRINT CARD ON 
SYSLST AND * 
SYSLOG 



•»G1**«*«*» 

SET 

CONFIG 

SWITCH TO 

ZERO 

»G4 



SVC 14 
EOJ 



' 


'• 


FCB 
LOAD 

**N0 


• 


YES 


NO 


• 


X 
F3* *». 

UCB *"• 

LOAD 


* '. 


» 




"*YES 






h* 














Ix... 







IS 

SYSXXX 

32LL 





» PHASENAME •. YES • NO 




GT 8 BYTES .« 


...X.... 




». ,» 


X 




• NO 


#ND*» 
• E3» 

NOPHSE 




X 






*»*C4»»**»»**»« 










» 


SAVE * 






PHASENAME » 










* 


► *»» 





*»C5***«*«* 
•SET CONFIG • 

• SWITCH FOR 
CARD LOADING 

* AND NO 

* MESSAGE « 



*E4 
BRANCH VIA 
LINKREG2 TO 
FCBLD (NC-BL) 
OR UCBLOAD 
(NC-B4). 



END 

OF 

CARD 



YES .» 3 

X...«. OPERANDS 
». CHECKED 



• B4» 
NOSYS 



CONFIG SWITCH SETTING 

BIT RESERVED 

1 LOAD BY CARDS 

2 RESERVED 

3 RESERVED 

4 RESERVED 

5 NO MESSAGE 

6 BLOCK 

7 FOLD 



POINT TO 

OPERATION AND 

UNIT FIELDS 



•GET OPERATIONS 

♦ AND UNITS 

♦ FIELDS 



.YES .• PHASE 
X...». LENGTH EQ 
«. ZERO 
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Chart NB. SYSBULFD - Set CONFIG Switch 
Refer to Chart 20. 



Cl • . 

.* *. 

FOLDING 
"•YES 

X 

»*D1#»»»**» 
•SET CONFIG 
SW BIT 7 

ON TO 
INDICATE 
* FOLDING 



POINT TO 
NEXT 

OPERAND 



C2 *. 
.X*I BLOCKING 



1B0NI INVALID OPERAND 

(N INDICATES THE POSITION, 

(4TH,5THi6THJ OF THE OPERAND) 



IS 

THERE AN 
OPERAND 



«#D2***«»«* 
•SET CONFIG 
SW BIT 6 

ON TO 
INDICATE 
• BLOCKING 



POINT TO 

NEXT 

OPERAND 



•SET CONFIG » 

SW BIT 5 

ON TO 

INDICATE NO 

* MESSAGE • 



IS 

THERE A 

BLANK 



INITIALIZE 

ERROR MSG 

1BONI 



ISSUE MSG 

1BONI ON 

SYSLOG 



• E5» 

» * 

SKIPCOM 



POINT TO 

NEXT 

OPERAND 



»E5 
BRANCH VIA 
LINKREG2 TO 
FCBLD (NC-B1) 
OR UCBLOAD (NC-B4J. 



» D5» 
NEXTUP 
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Chart NC. SYSBUFLD - FCB and UCSB Buffer Loads 
Refer to Chart 20. 



BRANCHED TO VIA 
LINKREG2 FROM 
NA-D5,E5 
NB-D4 



FCBLD 



GETCC 

*»*«D 
EXCP 



READ 

A 
CARD 



•»»E1» • * 

CHANGE 

CARD TO 

BUFFER LOAD 

FORM 



FL *. 

END 

OF 

BUFFER 

NO 



»*D2****** 

SVC 4 

LOAD FCB 

PHASE 



•NE • 
» C2« 

* » 

SETUP2 



NBR 


• 


YES 


POSITIONS 




*. .. • 


READ GT 






». L80 .» 










X 


• NO 




• ••• 
«ND 
» E3 

» » 


X 




NOP 








HI ». 






* * 






END 






OF 






CARD 


» 





A3« 



UCBLOAD X 

*»C4»«»»*«» 
* SET UCB • 
• OP CODE, 
* SET CCW TO 
« PROCESS 
♦DATA CHECKS* 



D4 *. 

.«* **. YES 

*. BLOCKING .* 


»#D5*****«* 
» ALLOW 
* BLOCK 
..X* DATA 




* CHECKS 


•NO 


': 


X 
CKFOLD .». 

E4 • . 

.•' '*. YES 
». FOLDING .♦ 

*«NO 


*»E5**«*»** 

» ALLOW 
..X» FOLDING 


X 
CKMESG .». 

F4 «. 

.*" MESSAGE '«. NO 


**F5*»*»*«* 

•INITIALIZE 
• CCW TO 


***YES 

Ix 


• MESSAGE 


GETUCB 

X 

***»G4* »•#*»»•» 

» SVC 4 « 

« LOAD UCB * 

« PHASE » 





.» IS ». 




.« PHASE *. 


YES 


•.TOO SMALL F0R.« 




•. UCB .• 




•.LOAD .• 






X 


• NO 


»*#»* 




• ND * 




* E3* 












NOPHSE 


BUFFLOAD X 




»*»»J4«**»»»»»*« 




EXCP ND 








EXECUTE CCW 




• CHAIN FOR ♦ 




UCB LOAD 





» Dl» 
READIN 
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Chart ND. SYSBUFLD - Miscellaneous Subroutines 
Refer to Chart 20. 



*B1**»* 
EXCP 



*»C1****** 

EXECUTE 

CCW 

CHAIN 

(SVC 0) 



•B2«»»*» 
AGAIN 



•*C2****** 

POINT TO 

NEXT 

SCAN 
POSITION 



NA-D3.G3 




NA-F3 


««**• 






« A4* 




#» * 
* A5» 


* 




* 


X 

**B4**«***« 
•INITIALIZE * 
ERROR * 
MESSAGE * 
1B02A * 
« *H1 • 


NOTYPE 


X 

»«B5*»**»* 

INITIALIZE 

ERROR 

MESSAGE 

1B01 A 

*H1 





ISSUMESG X 




#*#*C 4* •»♦*»»**« 




EXCP ND 


C3 




NA-B4.B5 


ISSUE 


NC-G1,H4 


* MESSAGE • 


♦ #»*♦ 


ON SYSLOG 



X 

SVC 7 
WAIT 



END 

OF 

CARD 



RETURN 

TO 
CALLER 



TRANSLATE AND 
TEST UNTIL 
BLANK FOUND 



.» ANY *. 

NON-BLANK 
SCANNED 



*»E3******* 

•INITIALIZE 

ERROR 

MESSAGE 

1B03I 

• «H1 



ISSUE 

MESSAGE 

ON SYSLOG 



READ 
OPERATOR 
RESPONSE 



E4 ». 

YES .»* SYSLOG 
...». A 

*. PRINTER 

'•NO 



• IS 
REPLY 
CANCEL 



»G3««»** 

SVC 6 

CANCEL 



SAVESYS 

»»***G4* «••*•*•• 
» SAVE 

• OPERATOR 

• RESPONSE 

• (NEW SYSUNIT) 



*F5»»**» 
TRTDO 



•##»G5««»»*««« 

TRANSLATE OR 

TEST FOR 

BLANK OR 

COMMA 



1B01A INVALID TYPE SPECIFICATION 
1B02A INVALID SYSUNIT SPECIFIED 
1B03A PHASE INVALID 



RETURN 

TO 
CALLER 



RETURN 

TO 
CALLER 
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Chart NE. SYSBUFF1 - Verify Forms Are Positioned at Channel 1 
Refer to Chart 21. 



• *« 


*B2********* 








» 


SYSBUFF1 




* 






• •*« 
















• NC 








• 02 


* 








C 




SETUP2 


C2***». 




YES .» 


IS 
L0A0 FROM 


*• 


». 


CAF 


IDS 


« 



X. 

TESTBIT X 

SHIFT .«. . EXIT X 

B3 *. . »*»»»B4«**««» 

.»* FCAR *». YES! » RESTORE 

». AT POSITION » CCW«S 

*. 1 .♦ » 

"•NO 



NEXTFCB 

#»*«»C 3 »*****» 

* DETERMINE 
« NUMBER OF 
» SPACES TO 
« REACH 

• CHANNEL 1 



GET ADDRESS 

OF BUFFER 

AND READIN 

AREAS 



CLEAR FLB, 
CREATE SHORT 
FCB LOAD, SET 

FOR 8 LINES 
PER INCH 



»»E2»*»««»* 

SVC 4 

LOAD 

FCB PHASE 



.» MESSAGE 
». REQUESTED 

*«N0 

Ix. . . 


*• 


YES 


• SET CCWS 






» MESSAGE 


MOVEMSG X 
EXCP 


ND* 






LOAD FCB 
» BUFFER 


» 




X 

»NA * 
* Dl* 

READIN 







»*F2*«»»**« 
•RESET CCWS 

* TO READ 
CARDS AND 

* NOP PRINT 
* CCW 



SKIP TO 
CHANNEL 

1 



FCB IS FORMS CONTROL 
BEFFER, FCAR IS 
FORMS CONTROL 
ADDRESS REGISTER. 



*»G2**»**»« 
•INITIALIZE 

• CCWS TO 
READ FCAR 

• AND FCB 
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Chart NF. $$BOFLDR - Load UCSB and FCB 
Refer to Chart 21. 













»#«*A3»»»»»«»**»» 
EXCP NF 
*»—♦—*-»-#-#-#—#» 
• READ FCAR 
* AND FCB • 
FROM 3211 


««**A4**»****** 
• LOGRITE * 




#»»»B1********* 
• $$BUFLDR * 








TESTBIT X 
SHIFT .•. 

B3 *. 

.»* FCAR *». 

». AT POSITION .* 
«. 1 .» 

'♦NO 


LOGRITE X 

»**»*B4********** 
* MAKE 3211 DEV * 
•ADDR PRINTABLE • 
» SET FOR PRINT » 
« ON SYSLOG • . 
» * 




IJBUFR39 '. 
RELO X 

*****ci********** 

* ESTABLISH * 

* BASE REG * 

* RELOCATE * 

* ADCONS SET * 

* FOR PUB SCAN * 




♦ NG • 
» Fl • 




NEXTFCB X 

•****C3********** 

• DETERMINE • 

• NUMBER OF » 

• SPACES TO • 

• REACH CHAN » 

• 1 • 


X 

**C4******* 

* DISABLE * 

* DIASTER TEST • 

» AT 'TEST* * 

* * 


**»*C5»******** 
* EXCP 




* 

NEXT 

*« 


»#* 

D2 *.. 

• 
*»# 

*»*D2* 

POIN 

NE 

P 


: 
r to 

<T 
JB 


• 


KLEER X 

#«*»*D3**»»****** 

* CLEAR FCB * 

♦ CREATE SHORT * 

* FCB LOAD SET • 

• FOR 8 LINES * 
» PER INCH • 




\ 


X 

***»*D1********** 
•SAVE SYSLOG LUB* 
•THEN PUT SYSUSE* 

• PTR IN SYSLOG » 

• LUB FOR ERROR * 

• RECOVERY * 


EXCP X 

***»*D4**** ****** 

* POINT TO » 

* CCB * 


*»##D5********* 

* STARTIO 

» 


lx 








* 
* 


SHORTFCB X 

»*»«E3*********** 
EXCP NF 

DO SHORT 

* FCB * 
LOAD 

X 

*#*#F 3** »♦»••**•• 
STARTIO NF 

"*SKIP TO 

* CHANNEL » 

1 




.| 


X 
L00P2 .*. 

El «. 

.•* END **. YES 






STARTIO X 

**»»E4*********** 

* SVC * 


• * 




**NO 


* 


*«#F2*< 

RES1 
SYSLO( 
SYSUS 


< 

rORE 
; AND 
E LUBS 




X 
CONTINUE .*. 

Fl ». 

.*' 3211 **. NO 
*. PUB .*.... 
«. ENTRY .« 

**. .** X 


X 

F4* "*. 

.** I/O **. NO 

*. COMPLETE .* 

*. .* 

*. .* 


****F5********* 

* SVC 7 ^ 
...X* WAIT i 

* i 



•**»G1******** 

POINT SYSUSE 

LUB TO 3211 

PUB 

ENTRY 



**G2******* 

SVC 11 

RETURN TO 

$$IPLRT4 



*G3**»** 

SVC 4 

LOAD 

$$BFCB 



3211 

UNRECOV 

ERROR 



SVC 4 

LOAD 

$$BUCB 



*H4* 



***« 



LOAD THE 

3211 

UCB 



0I26I $$BUCB 
AND $$BFCB 
LOADED X'CUU* 



LOAD THE 

3211 

FCB 



ENDMSG X 

LOGRITE NF 

PRINT MSG 
* 0I26I ON * 
SYSLOG *J2 



SVC 4 LOAD 

$$BUFLD2 AND 

PASS CONTROL 

CHART NG 



#*H5******* 

RETURN TO 

CALLER 
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Chart NG. $$BUFLD2 - 3211 Buffer Load Error Subroutine 
Refer to Chart 21. 



•»A1«*«*«» 
$$BUFLD2 



*A2 
0I28D DEVICE 
NOT OPERATIONAL 



ERROR X 
•••*C2»*« 
LOGRITE 



PRINT MSG 

0I28D 

*A2 



PRINT MSG 

0I27I 

»C3 



LOGRITE NF 

READ 
• REPLY * 


»«D2»*«*«*« 
•SUBSTITUTE • 

• DASHES FOR • 
* FCB OR UCB * 

♦ IN 0I26I « 
• *D3 » 




• D3 
$$BUCB AND 
$$BFCB LOADED 


X 
ESTIGN .*. 

El *. 

.•"RESPONSE "». YES 
«. EOB OR .*.... 

». IGNORE .« 

**. .»* X 

•NO »»»»» 

• NF * 

• D2* 


• 


X 

E2* "». 

•" FCB "«. YES 
LOAD ...... 

"». .»* X 
•NO »•••» 

• NF • 

• J3» 




X NEXT 
.*. 
Fl ». 

.•"RESPONSE***. YES 
». RETRY .* 




'. ENDMSG 




X 
***«F2**«»«»**« 

• RETURN TO » 

• CALLER • 

• »G3 » 







PRINT MSG 

0I28D 

• HI 



• G3 
RETURNS I.M-LINE 
TO CODE IN $$BUFLDR 
AFTER BAL TO 
EXCP, LOGRITE, OR 
START 10 
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Appendix A: Label List 



LABEL 



CHART 



AAAGET 


ABA 


ABORT 


FB 


ABORT 


KA 


ABORT 


KF 


ABORT 


KH 


ACCEPT 


EQ 


ADRSET 


KA 


AGAIN 


NC 


ALLDONE 


MD 


ALLIN 


FA 


ALLTRACE 


EA 


ALLTRACE 


ED 


ALLTRACE 


EG 


ALL09 


NA 


ALPHA 


NA 


ALREADY 


KG 


APENDAGE 


KC 


ARND 


JA 


ARND 


MA 


AROUND 


MJ 


AROUND10 


JD 


AROUND12 


JT 


AROUND13 


AC 


AROUND13 


JT 


AROUND14 


AF 


AROUND4 


JR 


AROUND5 


JR 


ASCHECK 


LK 


ASDHIGH 


LL 


ASEQUAL 


LK 


ASEQUAL6 


LK 


ASHIGH 


LM 


ASKIP 


NA 


ASK4AID 


AA 


ASKAAA 


ABA 


ASKAID 


AA 


ASKODQST 


AB 


ASKSVCQS 


AB 


ASMOVE 


LM 


ASMOVE6 


LM 


ASSIGNER 


FA 


AUTOOP 


FC 


BACKUP 


KC 


BAD 


NB 


BADCARD 


AE 


BADREC 


ME 


BADUNIT 


JS 


BALCONV 


LA 


BALERROR 


MB 


BALRD 


LA 


BALRD1 


LB 


BALRD2 


LB 


BALRD3 


LC 


BALRD4 


LC 


BALRD7 


LD 


BALRD8 


LE 


BALRD8A 


LF 



BALUPDT 


MB 


BCROFF 


FD 


BCRSW 


FD 


BCTLOOP 


AK 


BEGIN 


CB 


BEGIN 


CD 


BEGIN 


FA 


BEGIN 


NG 


BITEDT 


JR 


BITMOVE 


JT 


BJF 


FF 


BLK 


GE 


BLK1 


LJ 


BLNKCHK 


AD 


BLNKCHKC 


AE 


BOPLY 


CD 


BOPLY 


EP 


BOPLY 


EQ 


BPUT 


BC 


BRLINK 


LH 


BRNCH1 


EA 


BRNCH1 


ED 


BRNCH1 


EG 


BRNCH2 


EA 


BRNCH2 


ED 


BRNCH2 


EG 


BUFFLOAD 


NC 


BUMPPTR 


DA 


BYPASS 


KK 


BYPASS 


LJ 


BYPASS 


LN 


BYTE1 


JL 


BYTE2 


JL 


BYTE3 


JN 


BYTE4 


JQ 


BYTE5 


JB 


BY1 


KD 


BY7 


JJ 


CANCELIT 


ND 


CANCRTN 


AF 


CARDREAD 


HA 


CCHCNURT 


MH 


CCH2RTN 


MG 


CDERRLOG 


AE 


CHCKRECS 


KG 


CHECK 


MB 


CHECKAS 


LM 


CHECKEND 


KF 


CHECKN2 


ME 


CHECKTAB 


LK 


CHEKER 


CB 


CHEKKEY 


HA 


CHKATOF 


AK 


CHKDOBR 


JD 


CHKHDR 


MA 


CHKMORE 


AE 


CHKRESP 


MJ 


CHKSUB 


JE 
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CHKTYPE 


NA 


CHK0T09 


AK 


CHZROREC 


MD 


CIEDCHK 


JE 


CIEDONE 


JD 


CIEOFF 


JF 


CIEPHASE 


JE 


CIEREAD 


JD 


CIERESET 


JF 


CIERSET2 


JF 


CIESTORE 


JC 


CIE1 


JE 


CIE1CK 


JE 


CIE2CHK 


JE 


CKCHARIN 


AK 


CKCLEAR 


HB 


CKCQP 


DB 


CKCQP 


DD 


CKCQP 


EC 


CKCQP 


EF 


CKDEVCE1 


CA 


CKDEVCE1 


CB 


CKDEVCE1 


CD 


CKDEVCE1 


EN 


CKDEVCE1 


EN 


CKDEVCE1 


ER 


CKDEVCE2 


CA 


CKDEVCE2 


CB 


CKDEVCE2 


CD 


CKDEVCE3 


CA 


CKDEVCE3 


CD 


CKDEVST 


DB 


CKDEVST 


DD 


CKDEVST 


EC 


CKDEVST 


EF 


CKENTRY 


EC 


CKENTRY 


EF 


CKFOLD 


NC 


CKFORC14 


MF 


CKFOR145 


MG 


CKMESG 


NC 


CKNEXT 


LG 


CKOS2715 


MD 


CKOUTOD 


AC 


CKREC 


BC 


CKSETEND 


ME 


CKTR 


BC 


CKWSSWON 


MD 


CK2715S 


JD 


CLEAR 


CB 


CLEAR 


CD 


CLEAR 


DC 


CLEAR 


DE 


CLEAR 


EC 


CLEAR 


EF 


CLEAR 


ER 


CLEARN1 


MH 


CLEARl 


MB 


CLRTPLBL 


MJ 


CNCLREAD 


HA 


CNVRT 


GF 


CNVRT2 


GF 


CNVTCUU 


AK 


CNV2715 


MF 



COMLOOP 


JM 


COMMON 


JQ 


COMMON2 


JM 


COMMON3 


JD 


COMMON 5 


JQ 


COMP 


JR 


COMP 


LL 


COMPARE 


FC 


COMPARE 


JM 


COMPARE1 


FE 


COMPCD 


BC 


CONS 


GC 


CONT 


LG 


CONTINU 


MF 


CONTINUE 


EE 


CONTINUE 


MC 


CONTINUE 


NF 


CONTUE 


HC 


CONVERT 


AK 


CONVERT 


FE 


CONVERT 


GE 


CONVERT 


MD 


CONVERTA 


FE 


CONV4 


LJ 


COREDUMP 


FC 


COUNT 


LG 


COZERO 


FD 


CPUDUMMY 


ME 


CPUIDREC 


MH 


CQCHCK 


FF 


CRDINP 


AD 


CUPRINT 


LL 


CURTN 


LF 


CUTOHEX 


LJ 


CUUCNVT 


AK 


CUUOKEX 


AK 


CUUPUBCK 


AK 


CUURESP 


AB 



DASDTST 


LJ 


DASDTST 


LN 


DATARD1 


FL 


DBLSCHK 


AD 


DBLSTYPE 


AD 


DECPHAAA 


ABA 


DEFAULT 


HB 


DEFAULT1 


HA 


DENS 


GE 


DEVASSGN 


FA 


DEVIN 


GB 


DEVOUT 


GB 


DEVTST 


CB 


DEVTST 


CD 


DEVTST 


EQ 


DISK 


GC 


DISK 


GE 


DISKIN 


GE 


DMPTST 


EN 


DOIT 


CE 


DOIT 


EB 


DOIT 


EF 


DOIT 


EP 
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DOIT 


ER 


DONE 


DA 


DONE80 


LH 


DONE80 


LN 


DONSET 


CD 


DONTSET 


EQ 


DOPT 


CC 


DOPT 


DB 


DOPT 


EC 


DOPTR 


DD 


DUMPLOOP 


KH 


DUMPTP 


GC 


DUMPTST 


CA 


DUMPTST 


CB 


DUMPTST 


CD 


DUMPTST 


EQ 


DUPLICAT 


HB 


EALL 


BA 


END 


GC 


END 


KD 


END 


KE 


END 


MB 


END 


NA 


ENDBR 


BA 


ENDD 


GC 


ENDD 


GF 


END IT 


FF 


ENDMSG 


NF 


ENDNEW 


MC 


ENDT 


GC 


ENDT 


GF 


ENDUMP 


KH 


ENTCHNG 


CA 


ENTCHNG 


DA 


ENTEROBR 


JA 


ENTERSDR 


JA 


ENTR 


CD 


ENTR 


EM 


ENTR 


EQ 


ENTRY 


CB 


ENTRYQ 


BE 


ENTRYQ1 


BF 


EODCNVRT 


MH 


EOFTEST 


FL 


EOJ 


AG 


EOJ 


AL 


EOJ 


BA 


EOJ 


FB 


EOJ 


HC 


EOJJT 


FL 


EOJROUTE 


JD 


EOJRTN 


AA 


EREPCLR 


KA 


EREPIN 


KK 


EREPOUT 


KK 


EREP1 


JM 


EREP2 


JN 


EREP3 


JP 


EREP4 


JM 


EREP5 


JM 


EREP6 


JL 


EREP7 


JM 



ERRCOND 


AL 


ERRCOND 


CC 


ERRCOND 


CE 


ERRCOND 


EC 


ERRCOND 


EF 


ERRCOND 


ER 


ERREXIT 


JL 


ERRHR 


CC 


ERRHR 


CE 


ERRHR 


DB 


ERRHR 


DD 


ERRHR 


EC 


ERRHR 


EF 


ERRHR 


ER 


ERRMSG 


JK 


ERRMSG 


MB 


ERRMSGl 


JK 


ERRMSG2 


JK 


ERRMSG3 


JK 


ERROR 


HD 


ERROR 


LN 


ERROR 


NG 


ERRSUB 


HE 


ERRO 


AH 


ERR5A 


FB 


EXCLUSVE 


KE 


EXECUNPK 


BC 


EXCP 


ND 


EXCP 


NF 


EXIT 


KA 


EXIT 


MA 


EXIT 


NE 


EXITDONE 


KE 


EXIT1 


KD 


EXIT1 


MA 


EXIT2 


KD 


EXODUS 


FC 


FCBLD 


NC 


FETCH 


LF 


FETCH 


NF 


FETCH2 


NC 


FILLUP 


BA 


FINAL 


DB 


FINAL 


DD 


FINAL 


EE 


FINAL 


EH 


FINDFIR 


BE 


FINDFIR1 


BF 


FIND IT 


BD 


FINDSVCS 


AB 


FINISH 


KC 


FINISH 


MB 


FIRSTIN 


BC 


FLAGSET 


BE 


FLENTER 


DA 


FLTREC 


BE 


FLTRSET 


BA 


FMT02 


GA 


FMT08 


GA 


FORMAT 


DB 


FORMAT 


EE 


FORMAT 


FL 
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FORMAT 


KA 


FORMATl 


EE 


FORMLST 


KA 


FOUNDIT4 


FF 


FPCHCK 


FF 


FROMSIO 


CA 


FRSTSTEP 


JK 


FSTIMSW 


AA 


FTEST 


LK 


FULLMSG 


MJ 


FUN 


JS 


FO 


LL 


FOMSG 


LL 


FOTEST 


LL 


Fl 


LL 


F1CONV 


LL 


GET 


BA 


GETADDRS 


EB 


GETADDRS 


EP 


GETCC 


NC 


GETCPUID 


KA 


GETSUPST 


AL 


GETSVCS 


AH 


GETUCB 


NC 


GOBACK 


EA 


GOBACK 


ED 


GOBACK 


EG 


GOBY7 


LH 


GOBY7 


LN 


GOLOOP7 


LG 


GOODKEY 


HA 


GOODTAPE 


MA 


GORTN 


AF 


GOTHRU 


BD 


GR100 


LM 


GSVCPRT 


BB 


GSVCTYPE 


BB 


GTST4FF 


BB 


GUARDCHK 


JE 


HALF 


BE 


HALF1 


BF 


HASH 


JN 


HASH1 


JN 


HDRERR 


MA 


HISTCK 


HC 


IGNDEV 


CB 


IGNDEV 


EP 


IGNDEV 


EQ 


IGNRESP 


AG 


IGNRSPCD 


AG 


IGNRTN 


AF 


IGNTRCER 


AG 


IJBUFR39 


NF 


IJBUF239 


NG 


ILUSERV 


FL 


INCHUNIT 


LK 


INCR 


MK 


INCREMENT 


DA 


INCRMNT 


CA 


INERROR 


LN 



INITEOF 


JB 


INITIZE 


AC 


INITL 


KB 


INITRD 


JB 


INITREG 


JG 


INITREG 


LH 


INITREG 


LN 


INITRTN 


AC 


INITRTN 


LK 


INITTAPE 


MA 


INITZ 


CB 


INITZ 


DA 


INITZ 


EP 


INITZ 


EQ 


INLBL 


GD 


INTENTER 


CA 


IOBCKT 


CD 


IONOTFUL 


JF 


IORTN 


EM 


IOTREC 


BD 


IOTRFRMT 


BD 


IOTRSET 


BA 


IPLCHK 


KA 


IPLCNVRT 


MH 


IPLEND 


JD 


IPLREAD 


JD 


ISBLOCK 


NB 


ISDAEXTS 


FL 


ISSMSG 


NB 


ISSUMESG 


ND 


ISX 


NC 


JOINR 


LD 


JOINUP 


LD 


KEEPIGN 


AD 


KEEPTRC 


AD 


KEY1CHK 


AE 


KEY14CHK 


AE 


KEY15CHK 


AE 


KEY2CHK 


AE 


KEY3CHK 


AE 


KEY4CHK 


AE 


KEY5CHK 


AE 


KEY6CHK 


AE 


KEY7CHK 


AE 


KLEER 


NF 


LAB 


DB 


LAB 


DD 


LAB 


EB 


LAB 


EE 


LAB 


EH 


LENEPEOF 


JB 


LENGTHCK 


MG 


LFTYES 


LD 


LISTPRO 


JL 


LOADINP 


FA 


LOADNEXT 


FB 


LOADPRNT 


FC 


LOADPTR 


JU 


LOADREGS 


BE 


LOAD1 


NF 
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LODPRNTA 


FE 


LOG 


FB 


LOGDBL 


AD 


LOGINV 


AF 


LOGRITE 


NF 


LOOP 


EA 


LOOP 


EA 


LOOP 


ED 


LOOP 


ED 


LOOP 


EG 


LOOP 


EG 


LOOP 


LF 


LOOPB 


KD 


LOOPBACK 


JT 


LOOPBIT 


JR 


LOOPBITS 


JR 


LOOPSET 


KH 


LOOPZ 


KE 


LOOP100 


LM 


LOOP 2 


NF 


LOOP7 


JG 


LOOP7 


LH 


LOSTHEX 


AE 


LPSW4 


FF 


LSTCDCHK 


AD 


LSTRTN 


JL 


LUBCHCK 


FF 


MAYBE 


LH 


MCRDONE 


JD 


MCRR2RTN 


MG 


MCRRCK 


MF 


MCRRMAX 


MH 


MESSAGE 


LG 


MESSAGE 


MJ 


MODIFIED 


JJ 


MODIFY 


LH 


MODIFY 


LN 


MOVE 


JR 


MOVE 


KA 


MOVE 


LL 


MOVEGR 


LM 


MOVEHEAD 


KA 


MOVEMSG 


NE 


MOVEOUT 


FD 


MOVESAME 


FE 


MOVEUP 


EA 


MOVEUP 


EE 


MOVEUP 


EH 


MOVEUP 


EN 


MOVSTAT 


DB 


MOVSTAT 


DD 


MOVSTAT 


EC 


MOVSTAT 


EF 


MOVUP 


DB 


MOVUP 


DD 


MPS 


AL 


MPX 


KC 


MSGLNG 


AF 


MVC1 


LJ 


MVC3 


LJ 


NDMORE 


AF 



NEWCHK 


CA 


NEWLAB 


LF 


NEWLINE 


BE 


NEWLINE1 


BF 


NEWPAGE 


JJ 


NEWRECST 


ME 


NEWT APE 


MA 


NEXT 


DB 


NEXT 


DD 


NEXT 


EB 


NEXT 


EE 


NEXT 


EH 


NEXT 


LE 


NEXT 


LK 


NEXT 


NF 


NEXTFCB 


NE 


NEXTFCB 


NF 


NEXT IN 


BC 


NEXTONE 


CC 


NEXTONE 


KD 


NEXTOPTN 


HB 


NEXTTWO 


KD 


NEXTUP 


NA 


NEXT1 


LG 


NEXT3 


KD 


NOAID 


AA 


NOALT 


CA 


NOALT 


EB 


NOALT 


EP 


NOAREA 


AC 


NOAREA 


NA 


NOCLEAR 


LK 


NOCLR 


GB 


NOCLR 


GF 


NOCOMP 


LN 


NOD 


AF 


NODBL1 


AD 


NODBL2 


AD 


NOFM 


JE 


NOGOT 


AK 


NONEED 


AA 


NONLOG 


ND 


NOP 


JP 


NOPHSE 


ND 


NORMAL 


AL 


NOSHIFT 


HC 


NOSYS 


ND 


NOTCLRUP 


HC 


NOTEND 


MC 


NOTOBSDR 


ME 


NOTONCUU 


AK 


NOTYPE 


ND 


NXTENT 


LG 



OBRCHECK 


JC 


OBRCICHK 


JC 


OBRDONE 


JD 


OBRFRST 


JC 


OBRMCCHK 


JC 


OBRPOINT 


JD 


OBRREAD 


JB 


OBRSKIP 


JM 


ODCARD 


AB 
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OFFA 


JB 


OKIGN 


EB 


OKIGN 


EE 


OKIGN 


EH 


OMITTED 


HD 


OMMON2 


JM 


ONLIES 


ABA 


OPASTRK 


JQ 


OPBACK 


JQ 


OPBITS 


JR 


OPBLNK 


JQ 


OPEXIT 


JR 


OPEXOR 


JS 


OPINDEX 


JQ 


OPLOAD 


JU 


OPLOGUNT 


JS 


OPMVCBT 


JR 


OPMVCCTR 


JQ 


OPMVCHEX 


JQ 


OPMVCOM 


JQ 


OPNONO 


JR 


OPPARITY 


JU 


OPPRINT 


JQ 


OPTIME 


JT 


OPTION 


HC 


OPTIONS 


ABA 


OPUNPK 


JT 


OS150NLY 


MD 


OS2715CV 


MF 


OUT 


CD 


OUT 


EH 


OUT 


ER 


OUT 


FE 


OUT 


GC 


OUTAREA 


BA 


OUTCALL 


KK 


OUTLBL 


GD 


OUTPUT 


CE 


OUT1 


KC 


OVERFLOW 


EN 


OVFLIND 


CB 


OVFLIND 


CD 


OVFLIND 


EN 


OVFLIND 


ER 


PAGE 


GE 


PASS NO 


LL 


PHASEBEG 


LK 


PIBSAVDP 


FF 


POINT 


JB 


POINT 


LK 


PRECON 


FD 


PRG100 


LM 


PRINT 


DB 


PRINT 


DD 


PRINT 


GB 


PRINTDK1 


FL 


PROCESS 


KA 


PROCESS 


LK 


PROCF 


LL 


PROCF1 


LL 


PROCGTAB 


LM 


PROCTAB 


LL 


PROGUNTS 


JS 


PRROUT 


JJ 



PRT 


LH 


PRT 


LN 


PRTCD 


AJ 


PRTEST 


LL 


PRTGET 


AB 


PRTVAL 


AJ 


PUBCHCK 


FF 


PUBCOMP 


AK 


PUNCHRT 


FB 


PUT 


BA 


PUTIN 


CC 


PUTLINE 


KH 



QTAMFRMT 


BF 


QTAMREC 


BF 


RCDPRO 


JC 


RDCELOOP 


KF 


RDCELOOP 


KH 


RDPRT 


AJ 


READ 


FE 


READ 


GE 


READ 


LK 


READ 


MB 


READAAA 


ABA 


READD 


GC 


READDISK 


MA 


READIN 


NA 


READLOOP 


KA 


READON 


MB 


READREC 


JJ 


READROUT 


HA 


READSTAT 


HE 


READTPE 


GC 


READY 


HC 


READ1 


FA 


RECERROR 


MB 


REDUCE 


FC 


REGSCON 


FE 


RELD 


BD 


RELLOP 


KB 


RELO 


FA 


RELO 


NF 


RELOAD 


BA 


RELOC 


ED 


RELOC 


EG 


REOPTION 


HA 


RESET 


MD 


RESET 


NE 


RESPOF2 


AH 


RESTORE 


FB 


RESTSET 


DB 


RESTSET 


DD 


RESTSET 


EB 


RESTSET 


ED 


RESTSET 


EG 


RET 


GB 


RET 


GC 


RETNPONT 


KH 


RETN2715 


JB 


RETURN 


BB 


RETURN2 


MF 


RETURN3 


MG 
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RETURN** 


MH 


RETURN5 


MG 


RETURN6 


MF 


RETURN7 


MF 


RTNHEX 


LH 


RTNHEX 


LN 


RTRN0S15 


MF 


RTSIDE 


LH 


RTSIDE 


LN 


RTX1 


LH 


SAVE 


LF 


SAVEIT 


CB 


SAVEIT 


CD 


SAVENUM 


AK 


SAVEPSW 


DA 


SAVESTUF 


EE 


SAVESTUF 


EH 


SAVESYS 


ND 


SAVEWORD 


FE 


SAVE1 


LG 


SAVIT 


ER 


SAVPRINT 


FD 


SAVPSW 


DB 


SAVPSW 


DD 


SAVUM 


CB 


SAVUM 


CD 


SAVUM 


EE 


SAVUM 


EH 


SAVUM 


ER 


SCANLOOP 


HA 


SCANROUT 


HD 


SDRCLEAR 


JP 


SDRREAD 


JA 


SELLOOK 


KC 


SEL1 


KC 


SEQDISKE 


FL 


SETBR 


DB 


SETBR 


DD 


SETCCWS 


HA 


SETCODE 


MG 


SETDISPC 


HB 


SETEND 


KJ 


SETINFO 


ME 


SETLNGTH 


MG 


SETLSTSW 


AD 


SETLUB 


NF 


SETNDX 


JF 


SETNLEN2 


ME 


SETN1ZRO 


ME 


SETQUE 


HC 


SETRESET 


HD 


SETRESET 


JE 


SETROUTN 


HD 


SETSUBS 


HD 


SETSW 


LG 


SETSWTCH 


JB 


SETTAB 


LF 


SETTEST 


DA 


SETTWOSW 


MF 


SETUP 


EB 



SETUP 


EP 


SETUP2 


NE 


SET10KSW 


LF 


SHIFT 


NE 


SHIFT 


NF 


SHIFTCK 


HC 


SHIFTSET 


HB 


SHORTFCB 


NE 


SHORTFCB 


NF 


SHORTOUT 


BC 


SHRTMSG 


AF 


SIMPLE 


FF 


SIO 


AL 


SIOCHK 


EN 


SIOENT 


EC 


SIOENT 


EF 


SIOENT 


EQ 


SIOENT ER 


CA 


SIOENTSV 


DB 


SIOENTSV 


DD 


SIOENTSV 


EC 


SIOENTSV 


EF 


SIORTN 


CB 


SIORTN 


CD 


SIORTN 


EM 


SIORTN 


EQ 


SKIP 


LM 


SKIPCOM 


ND 


SKIPDIAG 


JE 


SHIPLOAD 


NF 


SKIPPAD 


JG 


SKIP1A 


JG 


SKIP1B 


JG 


SKIP1C 


JG 


SKIP1D 


JG 


SKPSWSET 


MH 


SOLVE 


NE 


SORTER 


HB 


SORTLOOP 


HC 


SPCLNGRD 


AF 


SPCTST1 


BA 


STAGN 


BD 


START 


AA 


START 


AL 


START 


KK 


START 


LA 


START 


LK 


STARTIO 


NF 


STCU 


LG 


STDUMCPU 


ME 


STEP4 


FF 


STEST 


HA 


STINST 


DB 


STMREGS 


AA 


STOPEDIT 


KF 


STORESA 


FE 


STORE2ND 


BB 


STORE5 


FC 


STORLIN 


BB 


STRADDR 


AE 


STRTSRCH 


T T* 

XIX' 


SUBCHECK 


HB 
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SUBDUPCK 


HB 


SUBLOOP 


HB 


SUBRETRN 


HB 


SUPRZ 


GF 


SVCCNVT 


AH 


SVCENT 


EQ 


SVCENTER 


DA 


SVCENTRY 


EA 


SVCENTRY 


EM 


SVCENTRY 


EQ 


SVCERR 


AH 


SVCERRCD 


AH 


SVCGET 


AB 


SVCIGN 


AB 


SVCINIT 


EB 


SVCINIT 


ED 


SVCINIT 


EG 


SVCINIT 


EQ 


SVCK 


DB 


SVCK 


DD 


SVCK 


EB 


SVCK 


EE 


SVCK 


EH 


SVCPT 


EA 


SVCPT 


ED 


SVCPT 


EG 


SVCRESP 


AH 


SVCSCD 


AB 


SVSET 


DA 


SVSET 


DB 


SVSET 


DD 


SVSET 


EB 


SVSET 


EE 


SVSET 


EH 


SVTST 


DA 


SWOFF 


FE 


SWTCHTST 


EB 


SWTCHTST 


EE 


SWTCHTST 


EH 


SW1 


AJ 


SW14 


AE 


SW15 


AH 


SW6 


AJ 


SW8 


AJ 


SYSBUFF1 


NE 


SYSBUFLD 


NA 


SYSTIO 


FD 


TABL 


LN 


TAP LAB 


FL 


TCLR 


JD 


TEST 


NF 


TESTBIT 


NE 


TESTBIT 


NF 


TESTENT 


LM 


TESTEOF 


FB 


TESTG100 


LM 


TESTIGN 


NG 


TESTIOl 


FC 


TESTI02 


FD 


TEST1 


DA 


TEST1 


DB 


TEST1 


DD 



TEST1 


ED 


TEST1 


EG 


TEST100 


LL 


TEST 2 


DA 


TEST 2 


DB 


TEST 2 


DD 


TEST 2 


ED 


TEST2 


EG 


TEST3 


DA 


TEST3 


DB 


TEST 3 


DD 


TEST3 


ED 


TEST3 


EG 


THEPUT 


BA 


THIL01 


JG 


THIL02 


JG 


THIL03 


JG 


THIL04 


JH 


THILOO 


JG 


TIFLFT 


LE 


TIFLFT 


LK 


TIMCVRT 


ME 


TIMEDATA 


LJ 


TIME2715 


MF 


TIOl 


FE 


TI03 


FE 


TMECNVRT 


ME 


TM1 


LK 


TM2 


LK 


TPE 


GB 


TPEIN 


GE 


TRAILER 


MC 


TRAILRCK 


MA 


TRANSFCH 


AG 


TRCIGNCD 


AG 


TRCIGNIC 


AG 


TRTDO 


ND 


TRUE4 


JH 


TRY 


CC 


TRY 


CE 


TRY 


DC 


TRY 


DE 


TRY 


EC 


TRY 


EF 


TRY 


ER 


TRYPT 


CC 


TRYPT 


DB 


TRYPT 


DD 


TRYPT 


EC 


TRYPT 


EF 


TOO 


JG 


TSTCOMB 


LF 


TST2 


LF 


TYPECK 


JE 


TYPEMACH 


JF 


TIOUT 


LA 


TlOUT-6 


LA 


T2 


LB 


T2715 


JG 


T20UT 


LA 


T3 


LB 


T30UT 


LA 


T40UT 


LA 
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T7 


LC 


T70UT 


LA 


T8 


LD 


T80UT 


LA 


UCBLOAD 


NC 


UNITOK 


NA 


UNPACK 


FD 


UNPAKT 


CC 


UNPK 


BD 


UNPKHEX 


JS 


UNPK1 


BC 


UNRECSET 


BC 


UP 


LK 


UPADDR 


JD 


UPDATE 


KA 


UPDATEO 


JB 


UPDATE1 


JK 


UPDATE2 


JC 


UPDATE3 


JF 


UPDTHDR 


KA 


UPDTOBR 


KA 


UPGREAT 


LM 


UPOBR 


KA 


UPREG 


BB 


UPRITE 


KB 


UPR1 


KB 


VALDENRY 


HD 


WAIT 


AL 


WAIT 


CC 


WAIT 


CE 


WAIT 


EC 


WAIT 


EF 


WAIT 


ER 


WAITPUT 


BA 


WANTPRNT 


EH 


WANTPRT 


CB 


WANTPRT 


CD 



WANTPRT 


ER 


WASR80 


LD 


WAS 180 


LB 


WAS280 


LB 


WAS380 


LC 


WAS480 


LC 


WAS880 


LE 


WAS880 


LK 


WAS880A 


LF 


WAS80 


LA 


WHAT 


NB 


WHICH 


DC 


WHICH 


DE 


WHICH 


EC 


WHICH 


EF 


WHICH 


ER 


WHICHAID 


AA 


WHICHONE 


AA 


WHICHONE 


FA 


WRAPUP 


EB 


WRITE 


KB 


WRITE 


MB 


WRITREAD 


HE 


WRONGTP 


MA 


YESLEFT 


LJ 


YESO 


JG 


YESO 


LA 


YES1 


JG 


YES1 


LB 


YES 2 


JG 


YES 2 


LB 


YES 3 


JG 


YES 3 


LC 


YES 4 


JH 


YES 4 


LC 


YES7 


JH 


YES7 


LD 


YES75 


LD 


YES70 


LD 


YES 8 


JH 


YES8F 


LE 
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Appendix B: Error Message Cross Reference 



MESSAGE 



CHART 



0I26I 


NF 




0I27I 


NG 




0I28D 


NG 




lBOnl 


NB 




1B01A 


ND 




1B02A 


ND 




1B03I 


ND 




3E10I 


JA, 


MJ 


3E11D 


HA 




3E12D 


HA 




3E13D 


HA, 


MJ 


3E14A 


HA 




3E15A 


MC, 


MJ 


3E16A 


HC 




3E18I 


MB 




3E20I 


LG 




3E22I 


JA 




3E25I 


HA f 


MA 


3E26I 


HA 




3E27I 


HA 




3E28I 


HA 




3E29I 


HA 




3E30I 


LL 




3E31A 


MJ 




4C10D 


AA 




4C11D 


AB, 


A J 


4C12D 


AB f 


AJ 


4C13D 


AD, 


AG, A J 


4C14D 


AD, 


AG 


4C15D 


AB, 


AD, AH 



4C16D 


AD, AH 


4C17D 


ABA, AC, AF, AG 


4C18I 


AA 


4C19I 


AC 


4C20D 


AC, AG 


4C21A 


AD 


4C22A 


ABA, AE, AF, AG, AJ 


4C23D 


AD 


4C24A 


AL, CB, CD, DC, 




DE, EC, EF, EQ 


4C25I 


AC 


4C26I 


BC 


4C27D 


ABA 


4C28D 


AD 


4C40A 


FA 


4C41A 


FA 


4C42A 


FA 


4C43A 


FA 


4C44A 


FB 


4C45A 


FB 


4C46A 


FA 


4R00I 


GA 


4R01I 


GB 


4R02A 


GB 


4R03I 


GB 


4R04A 


GB 


4R05I 


GB 


4R06I 


GB 


4R07I 


GB 


4R09D 


GC 


4R09I 


GA 
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Appendix C: Reference Figures 



Reset to Zeros after I PL 



-*13 



14 

Comm Region 

Address 



18 

External 
Old PSW 



50 

System 

Timer 



20 
SVC 
Old PSW 



54 

System Timer 

of Day 



28 

Program 
Old PSW 



58 

External 
New PSW 



30 

Machine Check 

Old PSW 



60 

SVC New 

PSW 



38 
I/O 
Old PSW 



40 

CSW 



68 

Program Check 

New PSW 



48 
CAW 



70 

Machine Check 

New PSW 



4C 

BG Job 
Duration 



78 

I/O New 

PSW 



80 Diagnostic Scan-out Area (System/360) or Permanently Allocated Low Core (System/370) 



SUPERVISOR NUCLEUS 



General Cancel Routine 



Save Users Registers (SVEREG) Routine 



General Exit Routine (Task Selection) 



Background Communications Region and Extention 



MCRR or RMS Linkage Area 



JAI Common Table 



Channel Scheduler 



I/O Interrupt 



Unit Check 



Attention Task 



PC,OC, AB, and IT Tables 



Supervisor Constants 



General Entry Routine 



SVC Interrupt Handler 



Start I/O Routine 



Machine Check Interrupt (S/360 only) 



Error Recovery Exits 



Error Recovery Block 



PTA, IDRA, and LTA Save Areas 



Fetch Subroutines 



SVC Interrupt Routines 



Program Check Routines 



External Interrupt Routines 



Resident Device Error Routine 



Option Routine 



MICR Interrupt Routines 



2nd Part of 
All Bound PIB 



2nd Part of 
Subtask PIBs 
Note 1 



1 st Part of 
Supervisor PIB 



LUBDSP 
Table 



TEB/TEBV 



2nd Part of 
BG PIB 



1st Part of 
All Bound PIB 



1 st Part of 
Subtask PIBs 
Note 1 



TSKID 
Table 



Console 
Buffers 



2nd Part of 
F2 PIB 



1st Part of 
BG PIB 



Channel PUB 
Pointer Table 



FOCL 



FICL 



SYSLNK DIB 



SYSCLB LUBs 



2nd Part of 
Fl PIB 



1 st Part of 
F2 PIB 



SVC Interrupt 
Table 



PUB Table 



NICL 



PTO Patch Area 



2nd Part of 
Attn PIB 



1 st Part of 
Fl PIB 



Channel 
Queue 



FAVP 



LUB Table 



2nd Part of 
Quiesce I/O PIB 



1st Part of 
Attn PIB 



LUBID 
Table 



JIB 



Track Hold Table 
Note 2 



2nd Part of 
Supervisor PIB 



1 st Part of 
Quiesce I/O PIB 



REQID 
Table 



Disk Information 
Blocks (with 
SYSFIL) 



CBF Patch Area 



JAI Partition Tables, User Save Area, Label Area 



(System/360) 

or 
(System/370) 



Machine Recording and Recovery, MCRR Patch Area 



RMS Monitor, RMS Resident Routines, RTA ^transients) $$R 



SDR Communications Region 



Foreground 2 Communications Region 



F2 Comreg Extension 



ASCII Translation Tables 



Patch Area 



I/O Error Logging (OBI^/SDR) Routines 



Foreground 1 Communications Region 



Fl Comreg Extension 



SAB 



IDRA 



Logical Transient Area (B-transients) ! 



Physical Transient Area (A-transients) $$A 



CE Table 



CE Area 



BG Program Save Area 



Problem Program Area 



Low 
Core 



Nucleus 
Code 



I/O and 

Information 

Blocks 



} 

} 



I/O Error 
Logging and 
Recovery 



Additional 

Comm 

Regions 

Logical 
and 

Physical 
Transients 



Note 1: Total of 9 subtasks PIBs generated. 
Note 2: Maximum of 225 entries generated. 

Figure 39, Supervisor Storage Allocation 
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4-Byte Address of CE Table 



Supervisor Nucleus 



BG Communications 
Region Extension 



Hook 2 



** Hook 1 




I/O Tables and 
Information Blocks 



I 



4-Byte Address of CE Table 

i 



FG2 Communications ^ 

Region Extension yt. 

E2 



T 

CE Table 



J 




Serviceability Routines 
in C E Area 



*n = 10 maximum 



Figure 40. Accessing CE Serviceability and PDAID Routines 



FG1 Communications 
Region Extension 



SAB, Patch, LTA 
and PTA Areas 



BG Save Area 
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Macro Supported 


SVC 


Function 


Dec. 


Hex. 


EXCP 








Execute channel programs. 


FETCH 


1 

2 
3 


1 

2 
3 


Fetch any phase . 

Fetch a logical transient (B- transient). 

Fetch or return from a physical transient (A -transient) . 


LOAD 


4 


4 


Load any phase . 


MVCOM 


5 


5 


Modify supervisor communications region. 


CANCEL 


6 


6 


Cancel a problem program or task. 


WAIT 


7 


7 


Wait for a CCBorTECB. 




8 


8 


Transfer control to the problem program from a logical transient (B -transient). 


LBRET 


9 


9 


Return to a logical transient (B -transient) from the problem program after an 
SVC 8. 


SETIME 


10* 


A 


Set timer interval . 




11 
12 

13 


B 
C 

D 


Return from a logical transient (B -transient) . 

Logical AND (Reset) to second job control byte (displacement 57 in communi- 
cations region). 

Logical OR (Set) to second job control byte (displacement 57 in communications 
region) . 


EOJ 


14 


E 


Cancel job and go to job control for end of job step. 




15 


F 


Same as SVC except ignored if CHANQ table is full . (Primarily used by ERP). 


STXIT (PC) 


16* 


10 


Provide supervisor with linkage to user's PC routine for program check interrupts. 


EXIT (PC) 


17* 


11 


Return from user's PC routine. 


STXIT (IT) 


18* 


12 


Provide supervisor with linkage to user's IT routine for interval timer interrupts. 


EXIT (IT) 


19* 


13 


Return from user's IT routine. 


STXIT (OC) 


20* 


14 


Provide supervisor with linkage to user's OC routine for external or attention 
interrupts (operator communications). 


EXIT (OC) 


21* 


15 


Return from user's OC routine. 




22* 


16 
17 


The first SVC 22 seizes the system for the issuing program by disabling multi- 
program operation . The second SVC 22 releases the system (enables multiprogram 
operation). 
Load phase header. Phase load address is stored at user's address. 


SETIME 


24* 


18 


Provide supervisor with linkage to user's TECB and set timer interval . 




25* 

26* 
27* 


19 

1A 
IB 


Issue HALT I/O on a teleprocessing device, or HALT I/O on any device if issued 

byOLTEP. 

Validate address limits. 

Special HIO on teleprocessing devices. 



* = optional 
Figure 41. DOS Supervisor Calls (Part 1 of 2) 
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Macro Supported 


SVC 


Function 


Dec. 


Hex. 


EXIT (MR) 


28* 


1C 


Return from user's stacker select routine (MICR type devices only). 




29* 


ID 


Provide return from multiple wait macros WAITF and WAITM (except MICR type 
devices). 


QWAIT 


30* 


IE 


Wait for a QTAM element. 


QPOST 


31* 


IF 


Post a QTAM element. 




32 
33 
34 


20 
21 
22 


(Reserved) . 

Reserved for internal macro COMRG . 

Reserved for internal macro GETIME. 


HOLD 


35* 


23 


Hold a track for use by the requesting task only. 


FREE 


36* 


24 


Free a track held by the task issuing the FREE. 


STXIT (AB) 


37* 


25 


Provide supervisor with linkage to user's AB routine for abnormal termination of 
a task . 


ATTACH 


38* 


26 


Initialize a subtask and establish its priority. 


DETACH 


39* 


27 


Perform normal termination of a subtask. It includes calling the FREE routine to 
free any tracks held by the subtask . 


POST 


40* 


28 


Inform the system of the termination of an event and ready any waiting tasks. 


DEQ 


41* 


29 


Inform the system that a previously enqueued resource is now available. 


ENQ 


42* 


2A 


Prevent tasks from simultaneous manipulation of a shared data area (resource). 




43* 

44* 

45* 

46* 

47* 

48 

49 

50 

51* 


2B 
2C 
2D 
2E 
2F 
30 
31 
32 
33 


Provide supervisor support for external creation and updating of SDR records. 

Provide supervisor support for external creation of OBR records. 

Provide emulator interface. 

Provide OLTEP with the facility to operate in supervisory state. 

Provide return from wait multiple WAITF for MICR type device. 

(Reserved) 

(Reserved) 

Reserved for LIOCS error recovery. 

Return phase length at OLTEP request. 



: optional 



Figure 41. DOS Supervisor Calls (Part 2 of 2) 
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1 


2 3 


4 


10 


11 17 


18 24 


25 31 


SDR 
Flags 

(SDR- 
TABLE) 


Parti- 


Number 


First SDR ID 




First OBR ID 


Current OBR ID 


Last OBR ID 


tion 
ID 


of SDR 
Records 


BBCCHHR 




BBCCHHR 


BBCCHHR 


BBCCHHR 


32 35 


36 39 


40 


43 


44 71 


Address of 


Address of 








SDR 


SDR Unit 


Reserved 




List Save Area 


Accumulator 


Switches 








72 75 


76 


95 


96 103 


104 107 


108 111 


112 115 


116 117 


Mask 
Bytes 


SDR1 Work Area 




Test Under 
Mask Table 


Temporary 
Work Area 


Test Under 

Mask 

Instruction 


F , 65536' 


SDR Queue 
Save Area 


118 135 


136 


155 


156 159 


160 163 


164 167 


SDR2 Work Area 




Area Modified by A -Transients 


SDR Error 
Message 
Save Area 


Branch 
Instruction 


O BR/SDR 
Flag Byte 
Address 


168 


250 




Data Area for O BR/SDR Records 



Key to SDR Communications Region Displacements: 



|"~o] SDR Flags: 



Bit 0: Key of OBR 

1: RDE option | 

2: Initial IPL time 

3: RF option = NO, recording is suppressed 



Bit 4: RF option = CREATE 

5: RF option =YES 

6: Error while recording 

7: Recorder file ready 



a 



D3 



25 



Set and tested by Job Control . 

Set by EREP transient $$BSDRUP to identify the partition making the call for EREP recording. 

Settings: X'10' if EREP is running in BG. 
X'20' if EREP is running in F2. 
X'30' if EREP is running in Fl. 

X'01 ' with one of the above if recorder file is ready. 
X'00 1 with one of the above if recorder file is not ready. 

Initial number of SDR records specified. If SDR record count is not specified, the file is formatted for OBR records only 
($JOBCTLM, see IPL and Job Control PLM, GY24-5086). 

Disk address of first SDR record . 

Disk address of first OBR record . 

Disk address of current OBR record . 

Disk address of last OBR record . 



Figure 42. SDR Communications Region (SDRTABLE) (Part 1 of 2) 
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Key to SDR Communications Region Displacements: 



32 



36 



76 



96 



104 



108 



112 



116 



18 



136 



156 



160 



164 



Address of SDR accumulator area which contains half -byte counters and accumulated error conditions. 

Address of SDR unit switches . 

SDR switch byte (1 for each PUB): 

X'80' - Update operations complete 

X'40' - Counters on external file overflowed 

X'20' - I/O error during write 

X'08' - SDR update half -byte counters routine required 

X'04' - Update SDR record routine required 

Other - Reserved 

When entry contains X'01 000000' , indicates MCRR, no SDR supported. 

Reserved . 

SDR1 register save area. 

Mask formats for interpretive error accumulator, SDR1: 

X'FF' -End of update 

X'FE 1 - Bypass counter 

X'FD' - Set up 'OR' condition to previous counter 

X'FC - Ignore list item 

Other - Test bit in error queue 

Used by the interpretive error accumulator routine to process list passed by OBR/SDR A -transient. 

Used by the interpretive error accumulator routine. 

Used by the interpretive error accumulator routine for address alignment. 

Executed by the interpretive error accumulator routine. 

Loop counter for the SDR counter update . 

Save area for pointers to entries in the SDR error queue. 

Work area where half byte error counters are unpacked and updated . 

List of devices passed to the SDR processor from $$ANERAD . 

Used by SDR/OBR recorder phases to pass error message displacements and disk error addresses in event of an error. 

Entry point from OBR/SDR A -transients. Branches to label SDRMM. 

Pointer into the OBR/SDR unit switches. Status posted by recorder phases. (See byte 36). 



168 OBR and SDR records formatted by the recorder phases. 



Figure 42. SDR Communications Region (SDRTABLE) (Part 2 of 2) 
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KEY 



FIELD 



Channel S Unit 

Poll Characters 

DATA FIELD 
Type 
Characteristics 



Counters * 

Reserved 

Guard 

RECORD CAPACITY 

Note : Device Type 
2311 
2314 



SIZE 
2 Bytes 

4 Bytes 

SIZE 
1 Byte 
1 Byte 



16x2 Bytes 
2 Bytes 
1 Byte 



DESCRIPTION 

Last Record X • FFFE ■ 

Available Record X'FFFF* 



DESCRIPTION 

Device Type from PUB Table 
X^O' if Swi tenable Device 
X , 02 i if Burst on MPX Channel 
X^l* if 7 Track Tape 
Error Counters 



x i FF i 



-43 Bytes Total 

Rec or d s/Tr ack 
29 
38 






♦The SDR processor will expand each of the sixteen half-byte 
in-core counters into two-byte counters on the disk. There can be 
thirteen errors on a device before updating the disk; the capacity 
of the two-byte expansion is 32767 errors before overflow is 
reached. 

Figure 43. SDR Record Format 
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CD 



D 
(T) 
< 

O 
CD 

It 1 
h* 
w 
rt 

W 
X 

H 
CD 



hh 









H 

W 
& 



CD 
13 

X 

o 



:::::::::: 


LIST FOR UNSUPPORTED 
EQU » 


DEVICE ::;: 


TAPE 


LIST FOR 2400 TAPE 
EQU " 




SERIES :c:: 


UNSUP 






SDRMSK SENSE, 0,2 


BUS-OUT CHECK 




SDRMSK 


SENSE, 0,1 


INTERVENTION REQUIRED 




SDRMSK SENSE, 0,3 


EQUIPMENT CHECK 




SDRMSK 


SENSE, 0,2 


BUS-OUT CHECK 




SDRMSK SENSE, 0,5 


OVERRUN 




SDRMSK 


SENSE, 0,3 


EQUIPMENT CHECK 




SDRMSK END 


END OF LIST 




SDRMSK 


SENSE, 0,5 


OVERRUN MASK 


LUNSUP 


EQU "-UNSUP 


LENGTH OF LTST 




SDRMSK 
SDRMSK 
SDRMSK 


SENSE, 0,6 
SENSE, 4 ,7 
SENSE, 3,0 


WORD COUNT ZERO 

DATA CONVERTER CHECK 

R/W VERTICAL REDUNDANCY CHECK 


:::: 


LIST FOR CHARACTER READER DEVICES 12 85/12 87/1412/1419 :::: 




SDRMSK 


SENSE, 3,1 


LONGITUDINAL REDUNDANCY CHECK 


II " " 5» X 




:c :::::::: 




SDRMSK 


SENSE, 3, 2 


SKEW MASK 










SDRMSK 


SENSE, 3, 3 


CYCLIC REDUNDANCY CHECK 


CHAR 


EQU :c 






SDRMSK 


SENSE, 3, 4 


SKEW REGISTER VRC MASK 




SDRMSK SENSE, 0,0 


COMMAND REJECT 




SDRMSK 


SENSE, 1,0 


NOISE MASK 




SDRMSK SENSE, 0,2 


BUS-OUT CHECK 




SDRMSK 


END 


END OF LIST 




SDRMSK SENSE, 0,5 


OVERRUN 


LTAPE 


EQU : 


C -TAPE 


LENGTH OF LIST 




SDRMSK END 


END OF LIST 










LCHAR 


EQU "-CHAR 


LENGTH OF LIST 


::::::::;: 








:::::::::: 


LIST FOR UNIT RECORD 






LIST FOR DASD 2311/2314/2321 :::c 
EQU :i 


DEVICES :c:: 


DASD 












SDRMSK 


SENSE, 0, 1 


INTERVENTION REQUIRED 


UNIT 


EQU :c 






SDRMSK 


SENSE, 0,2 


BUS-OUT CHECK 




SDRMSK SENSE, 0, 1 


INTERVENTION REQUIRED 




SDRMSK 


SENSE, 0,3 


EQUIPMENT CHECK 




SDRMSK SENSE, 0,2 


BUS-OUT CHECK 




SDRMSK 


SENSE, 0,5 


OVERRUN 




SDRMSK SENSE, 0,3 


EQUIPMENT CHECK 




SDRMSK 


SENSE, 0,6 


TRACK CONDITION 




SDRMSK END 


END OF LIST 




SDRMSK 


SENSE, 0,7 


SEEK CHECK 


LUNIT 


EQU "-UNIT 


LENGTH OF LIST 




SDRMSK 
SDRMSK 
SDRMSK 


SENSE, 2,0 
BYPASS 
SENSE, 2, 2 


UNSAFE 

BYPASS THIS COUNTER 

SERIALIZER/DESERILIZER 




LIST FOR 1052 CONSOLE 






SDRMSK 
SDRMSK 
SDRMSK 


SENSE, 2, 3 
SENSE, 2,4 
BYPASS 


CONTROL UNIT TAG LINE 

ALU CHECK 

BYPASS THIS COUNTER 


CONSL 


EQU » 






SDRMSK 


SENSE, 1,6 


MISSING ADDRESS MARKER 




SDRMSK SENSE, 0, 1 


INTERVENTION REQUIRED 




SDRMSK 


END 


END OF LIST 




SDRMSK SENSE, 0,2 


BUS-OUT CHECK 


LDASD 


EQU : 


C -DASD 


LENGTH OF LIST 




SDRMSK SENSE, 0,3 


EQUIPMENT CHECK 












SDRMSK SENSE, 0,5 


OVERRUN 


:::::: 






:::::: 




SDRMSK END 


END OF LIST 




2495 TAPE CARTRIDGE 


READER :: 


LCONSL 


EQU --CONSL 


LENGTH OF LIST 


CARTAP 


EQU : 






:::::::::: 




LIST FOR 2540 READER, 


PUNCH »» 




SDRMSK 
SDRMSK 
SDRMSK 


SENSE, 0,1 
SENSE, 0,2 
SENSE, 0,6 


INTERVENTION REQUIRED 
BUS-OUT CHECK 
POSITION CHECK 


RDPCH 


EQU » 






SDRMSK 


END 






SDRMSK SENSE, 0, 1 


INTERVENTION REQUIRED 


LCARTAP EQU : 


—RDPCH 


LENGTH OF LIST 




SDRMSK SENSE, 0,2 


BUS-OUT CHECK 












SDRMSK SENSE, 0,3 


EQUIPMENT CHECK 












SDRMSK BYPASS 


SKIP THIS COUNTER 












SDRMSK SENSE, 0,6 


UNUSUAL COMMAND SEQUENCE 












SDRMSK END 


END OF LIST 










LRDPCH 


EQU "-RDPCH 


LENGTH OF LIST 











to 



GENERAL FORMAT 






FIELD 



Record Type 
Date 



Time 

Program ID 
First CCW 
Failing CCW 
Channel S Unit 

csw 

Sense 

Seek Address 
Device Type 

Poll Characters 
Logical Unit 
Volume ID 
Reserved 
Guard Byte 



SIZE CONTENT/DESCRIPTION 

1 Byte x'Ol' identifies OBR record. 
4 Bytes In packed decimal form: 

OOYYDDDF = (Year, Julian Date, Zone) 

4 Bytes System time of day. 

8 Bytes Name of JOB (in a Batched partition), or program name. 

8 Bytes First CCW of failing chain. 

8 Bytes CCW on which error occurred. 

2 Bytes 
8 Bytes 

6 Bytes Device sense bytes. 

6 Bytes Reserved for new sense. 

6 Bytes BBCCHH 

4 Bytes Device type as stored in PUB table, mode setting, and 

characteristics. 
4 Bytes 
2 Bytes 
6 Bytes 
2 Bytes 
1 Byte 



X'FF f 



RECORD CAPACITY - 80 Bytes Total 

Note: Device Type Records/Track 
2311 25 

2314 40 



I— 



IBM 3211 FORMAT 



FIELD 

Record type 

Date 

Time 

Job ID 

First CCW 

Failing CCW 

Channel S Unit 

CSW 

Sense 

Device type 
Logical unit 
Parity error 

locations 
Contents of 

parity error 

locations 
Flag 

Device ID 
Guard byte 



SIZE 



1 Byte 
4 Bytes 
4 Bytes 
8 Bytes 
8 Bytes 
8 Bytes 

2 Bytes 
8 Bytes 
6 Bytes 

Bytes 
Bytes 
Bytes 



8 Bytes 
8 Bytes 



1 Byte 
1 Byte 
1 Byte 



CONTENT/DESCRIPTION 

X'Ol* identifies OBR record. 

Format is 00YYDDDZ (Year, Julian Date, Zone in packed 

System time of day. 

Program name, or job in batched partition. 

First CCW in failing chain. 

CCW on which error occurred. 

Failing device address. 

Six sense bytes produced by 3211. 

Reserved. 

First two bytes taken from bytes 4, 5 of 3211 PUB entry. 

Up to 8 parity error locations in the print line buffer 

(one byte per location, X i 01 i to X^*). 
Contents of positions referenced in parity error locations - 



Flag contains: 

X«FF f = 3211 OBR record indicator. 

X'FF" designates end of record. 



Figure 45. OBR Record Formats 
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MCRRPSW1 (See Note) 




(Hexadecimal Displacement) 


8 


10 


14 






(Decimal Displacement) 


8 


16 


20 




MCRR ! PSW 

Reentrant 
1 Address of 
1 MCRR Routine 

• 


MCRR j PSW 

1 

| Address of 

I MCRR Routine 

1 


Address of 
Channel 
Failure 
Routine 


Address of 
Machine 
Check 
Routine 


xxxxxxxx 


XXXXXXXX 


XXXX 


XXXX 


Key to displacement: 






Machine Check Recording and Recovery PSW. Loaded to enable machine check interrupts. Second word (displacement 4-7) 
contains reentrant address (MCRETURN) to MCRR routine. 


8 Machine Check Recording and Recovery PSW. Loaded to enable machine check interrupts. Second word (displacement 12-15) 
contains initial address (MCRRRTN) of the MCRR routine. 


16 Address of channel failure routine (MACHEK1). 


20 Address of machine check routine (MACHEK). 


Note: MCRRPSW1 is the label of the first byte of the MCRR Linkage Table. 



Figure 46. Machine Check Recording and Recovery (MCRR) Linkage Table 
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r 






i 


| Record 1: 








I ENTRY 


SIZE 


CONTENT/DESCRIPTION | 


| Record ID 


1 


Byte 


X , 02" CIE Record ID | 


| Record Number 


2 


Bytes 


X^nNN' n of N records j 


| Model Number 


1 


Byte 


X f 30 f f XM0\ or X f 50 - | 


| Date 


4 


Bytes 


In packed decimal form: | 
00YYDDDF = (Year, Julian Date, Zone) | 


j Time 


4 


Bytes 


System time of day | 


| Program ID 


8 


Bytes 


C'XXXXXXXX' Job name j 


j 10 Active Devices 


20 


Bytes 


X'cuu" First 10 active devices on | 
Channel | 


| First CCW 


8 


Bytes 


First CCW of failing chain | 


| Failing CCW 


8 


Bytes 


CCW on which error occurred j 


| CSW 


8 


Bytes 




| Failing Device 


2 


Bytes 


X'cuu' | 


| Logout 


12 


Bytes 


Mod 30 core bytes X'SO^X^B 1 | 

Mod 40 core bytes X'SO'-X^B* | 

Mod 50 core bytes X'SO'-X^B* | 

or X'SS'-X^ - | 


j Indicator 


: 


L Byte 


X'Ol' OBR full log bit - Mod 50 only | 
Unused Models 30 & 40 | 


| End of Record 


: 


L Byte 


X'FF f | 


L — _ - 


RECORD CAPACITY - 80 Bytes Total | 


r 

| Record 2: Models 


40 


i 
& 50 only | 


1 ENTRY 


SIZE 


CONTENT/DESCRIPTION I 


| Record ID 


1 


Byte 


X f 02' CIE Record ID | 


j Record Number 


2 


Bytes 


X'nnNN' n of N records | 


j Model Number 


1 


Byte 


X^O* or X f 50 f | 


| Logout 


75 


Bytes 


Mod 40 core bytes X'SC^-X'De" | 




< 


or 


Mod 50 core bytes X^c'-X'De* or | 




55 


Bytes 


Mod 50 core bytes X'SS'-X'CB' | 




20 


Bytes 


Mod 50 only - Unused with short | 
record • | 


| End of Record 


1 


Byte 


X'FF* | 




RECORD CAPACITY - 80 Bytes Total | 



Figure 47. Machine Check Recording and Recovery (MCRR) Record Formats (Part 1 of 4) 
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Record 3: Models 40 S 50 only 

ENTRY SIZE CONTENT/DESCRIPTION 



Record ID 
Record Number 
Model Number 
Logout 



End of Record 



1 Byte X f 02 f CIE Record ID 

2 Bytes X f nnNN' n of N records 
1 Byte X f 40 f or X^O" 

75 Bytes Mod 40 core bytes X , D7"-X , 121" 
Mod 50 core bytes X^V^X 1 ^!' 

75 Bytes Unused for Partition Log- Out 

1 Byte X*FF' 



RECORD CAPACITY - 80 Bytes Total 
Record 4: Models 40 S 50 only 
ENTRY SIZE CONTENT/DESCRIPTION 






Record ID 
Record Number 
Model Number 
Logout 

Unused 

End of Record 



1 Byte X f 02" CIE Record ID 

2 Bytes X f nnNN* n of N records 

1 Byte X f 40" or X^O* 

34 Bytes Mod 40 core bytes X f 122" - X"143" 

2 Bytes Mod 50 core bytes X , 122 , -X"123 f 
41 Bytes Mod 40 

73 Bytes Mod 50 

1 Byte X"FF' 

RECORD CAPACITY - 80 Bytes Total 



— J 



Figure 47. Machine Check Recording and Recovery (MCRR) Record Formats (Part 2 of 4) 
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r 

| Record 1: 










1 


1 ENTRY 


SIZE 


CONTENT /DESCRIPTION 








| Record ID 


1 Byte 


X" 04 • CPU Record ID 








| Record Number 


2 Bytes 


X f nnNN' n of N records 








| Model Number 


1 Byte 


X^O', X f 40 f , X'SO' 








1 Date 


4 Bytes 


In packed decimal form: 












00YYDDDF = (Year, Jul 


ian 


Date, 


Zone) | 


j Time 


4 Bytes 


System time of day 








| Program ID 


8 Bytes 


C'XXXXXXXX' Job name 








| 10 Active Devices 


20 Bytes 


X^uu* First 10 active 
on channel 


I/C 


units 




| PSW 


8 Bytes 


Machine check old PSW 








| G.P. Registers 


28 Bytes 


Registers 0-6 








| Unused 


3 Bytes 










j End of Record 


1 Byte 


x «FF f 








L - 


RECORD CAPACITY - 80 Byte Total 






r , .. ^ n .1 


r 

| Record 2: 










T 


1 ENTRY 


SIZE 


CONTENT/DESCRIPTION 








| Record ID 


1 Byte 


X , 04 f CPU Record ID 








j Record Number 


2 Bytes 


X f nnNN' n of N records 








j Model Number 


1 Byte 


X^O', X^O', X^O' 








j G.P. Registers 


36 Bytes 


Registers 7-15 








j F.P. Registers 


32 Bytes 


0, 2 f 4, 6 








j Unused 


7 Bytes 










j End of Record 


1 Byte 


X«FF - 








| Record 3: 


RECORD CAPACITY - 80 Byte Total 






— i 










1 ENTRY 


SIZE 


CONTENT/DESCRIPTION 








j Record ID 


1 Byte 


X f 04 f CPU Record ID 








I Record Number 


2 Bytes 


X"nnNN f n of N Records 








| Model Number 


1 Byte 


X^O 1 , X'40', X - 50 f 








j Logout 


12 Bytes 


Mod 30 core bytes X f 80 f 


-X' 


8B f 






75 Bytes 


Mod 40 core bytes X f 80 f 


-X f 


CA" 








Mod 50 core bytes X'80 f 


-X f 


CA' 




j Unused 


63 Bytes 


(Model 30 only) 








| End of Record 


1 Byte 


X'FF" 










RECORD CAPACITY - 80 Byte Total 









— J 



Figure 47. Machine Check Recording and Recovery (MCRR) Record Formats (Part 3 of 4) 
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Record 4: Models 40 S 50 only 

ENTRY SIZE CONTENT/DESCRIPTION 



Record 


ID 


1 


Byte 


Record 


Number 


2 


Bytes 


Model Number 


1 


Byte 


Logout 




75 


Bytes 


End of 


Record 


1 


Byte 



X* 04" CPU Record ID 

X l nnNN f n of N records 

X'HO* or X f 50 f 

Mod 40 core bytes X^B^X^IS' 

Mod 50 core bytes X'CB'-X'llS" 

X »FF" 



RECORD CAPACITY - 80 Byte Total 



Record 5: Models 40 £ 50 only 



ENTRY 



SIZE 



Record ID 


1 Byte 


Record Number 


2 Bytes 


Model Number 


1 Byte 


Logout 


46 Bytes 




14 Bytes 


Parities 


12 Bytes 


Unused 


29 Bytes 




49 Bytes 


End of Record 


1 Byte 



CONTENT/DESCRIPTION 

X f 04 f CPU Record ID 

X'nnNN' n of N records 

X^O" or X'50* 

Mod 40 core bytes X f 116 , -X , 143 f 

Mod 50 core bytes X - 116" -X* 123' 

Registers parities (Mod 50 only) 

Mod 40 

Mod 50 

X «FF' 



RECORD CAPACITY - 80 Byte Total 



Figure 47. Machine Check Recording and Recovery (MCRR) Record Formats (Part 4 of 4) 
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NICL 
System 
BG 
F2 
Fl 
n = number of units 
i = index displacement 
within LUB table 




KEY: 

NICL (Number in Class) 

FICL (First in Class) 

LUB (Logical Unit Block) Table 
PUB (Physical Unit Block) Table 

FOCL (First on Channel List) 

TEB (Tape Error Block by Unit) 
TEBV (Tape Error Block by Volume) 

FAVP (First Available Pointer) 
JIB (Job Information Block) 

CHANQ (Channel Queue) Table 

LUBID (LUB Identification) 
REQID (Requestor Identification) 
LUBDSP (LUB Displacement) 
FLPTR (Free List Pointer) 
SAB (Seek Address Block) 

TKHDTAB (Track Hold Table) 

THFLPTR (Track Hold Free List Pointer) 
TKREQID (Track Requestor Identification) 











TKHDTAB 







































































































































































































































































































: The first byte contains the number of system class units. The second, third, and fourth bytes contain the number of 
programmer class units (BG, F2, Fl ) (Figure 49). 

: The first byte points to the first system class unit in the LUB fable. (Always the first LUB table entry.) The second byte 
points to the first programmer class unit in the LUB table BG area. The third points to the first programmer class unit 
in the LUB table F2 area. The fourth points to the first programmer class unit in the LUB table Fl area (Figure 49). 

: The first byte points to a PUB table entry (if the logical unit is assigned) or contains X'FF' . The second byte points 
to a JIB table entry or contains X'FF' (Figure 49). 

: The first two bytes contain the channel and unit address of the physical device; the third a CHANQ pointer; the 
fourth a TEB pointer; the fifth device type codes; the sixth a device characteristic code or a SAB pointer; the seventh 
the channel scheduler flag; and the eighth has the job control flag (See Figure 51). 

: The first byte points to the first PUB (highest priority) on channel zero. The next byte points to the first PUB (highest 
priority) on channel one, etc. A hexadecimal FF indicates the associated channel is not supported. 

: One TEB is built for each tape unit at supervisor generation time if tape error statistics by unit are required (Figure 52). 

: One TEBV is built for each tape unit at supervisor generation time if tape error statistics by volume are required 
(Figure 53). 

: A one-byte pointer to the next available JIB entry. 

: The first two bytes contain extent or LUB information. The third contains ownership* "and JIB flags. The fourth contains 
JIB chaining information (Figure 50). 

: The first byte contains the chain field (a pointer to the next in queue). The last three bytes contain the CCB address 
(Figure 54). 

: A one-byte pointer to the LUB making the I/O request. 

: A one-byte pointer to the program containing the CCB (Figure 54). 

: A one-byte value equal to the absolute LUB number (CCB byte 7). 

: A one-byte pointer to the next free entry in the channel queue (Figure 54). 

: A four-byte (BCCH) address that is the current disk address of the device plus a fifth byte that contains a Track Hold 
Table pointer of X'FF'. If the Track Hold function is not supported, the fifth byte contains X'00' . 

: The first byte contains a pointer to the next available entry (or X'FF'); bytes 2-4 have CCB address of the requesting 
task; bytes 5-10 have a disk address (BBCCHH) of track being held; byte 11 has key of owning track; and byte 12 has 
two uses: bit 0=1 means a task is waiting for the track, and bits 4-7 count the number of holds on the track. (Figure 
55). Note: The number of holds is one more than the value of bits 4 - 7 of the last byte. 

: A one-byte pointer to the next free entry in the Track Hold Table. 

A one-byte pointer to the PIB of the task requesting I/O. 



Figure 48. I/O Table Interrelationship 
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> 

CD 
3 
Pi 
H- 



*1 

CD 

•P 



03 

O 



9 

ft 



tr 1 

a 
w 



& 

H 
CD 



Number in 
Class List 
(NICL) 






LUB Table 




{ 

{ 


BG 

System 

LUBs 

BG 

Programmer 

LUBs 


* L 


{ 


F2 

System 
LUBs 

F2 

Programmer 

LUBs 


{ 


F1 

System 
LUBs 

F1 

Programmer 

LUBs 



First 

Class List 

(FICL) LUB Table for any Partition 



SYS 



BG 



F2 



r"F1 



©< 



SYSRDR 
JSYSIPT 
jSYSPCH 
,SYSLST 
© SYSLOG 
SYSLNK 
SYSRES 
SYSSLB 
SYSRLB 
(D SYSUSE 
SYSREC 
SYS000 
SYS001 
SYS002 
SYS003 
SYS004 

@ SYS221 
(§) SYSCLB 



F1 
F2 
BG 






00000000- Points to first PUB 
1 - Points to second PUB 
00 0010- Points to third PUB 



1 1 1 1 1 1 1 - Ignore 

1 1 1 1 1 1 1 1 - Null Pointer, the LUB is Unassigned 

When a logical unit is assigned, the system inserts a 
pointer to the PUB for the physical device specified. 



I Format of Any LUB j 



ByteO 



PUB Pointer 



Bytel 



JIB Pointer 



JIB Index (Multiply by 4 = displacement into JIB Table) or X'FF' = Null 
Pointer, no JIB for this LUB 

A LUB has a JIB pointer when: 

1. The logical unit is temporarily assigned. 

2. The logical unit assignment is alternate (ALT). 

3. A DASD file (except a system I/O file on disk) is opened. 



Bytes 76 and 77 (X'4C - '4D') of the communications region contain the address of the LUB table entry. 
Label LUBTAB identifies the first byte of the table. 



© When in Single Program Initiation mode (Foreground 1 or 2): Must be unit record device and can be referenced by the program. 

© When in Single Program Initiation mode (Foreground 1 or 2): Can be referenced by the program. 

® SYSUSE may be called SYSCTL in error recovery messages. 

(§) The maximum number of programmer logical units in the system is 222 if MPS = BJF, or 244 if MPS = YES or NO. 

© The SYSCLB (Private Core Image Library) LUB entry functions the same as other LUB entries, but is not part of the LUB Table. To locate the SYSCLB LUB in supervisor, perform the 
following steps: 

1. Divide the PIK by 8. 

2. Subtract the result in step 1 from the address of the PIB extension block. 

3. If option AP = YES, the result of step 2 is the location of SYSCLB LUB. If option AP = NO, add 16 (for the all-bound PIBX) to the result of step 2. 



to 
U) 



JIB Table 


JIB 


1 


JIB 


2 


JIB 


3 


JIB 


4 


JIB 


5 


JIB 


6 



Number (length of JIB table) 
determined at supervisor generation 



Note: Two JIBs are required for a 2321 extent; one for lower 
limit and one for upper limit. The lower limit defining 
JIB must be chained to the upper limit defining JIB. 
Byte 1 of this type JIB contains the subcell number 
times 10 plus the strip number in binary. 



Type of Entry 



Stored standard 
assignment 



Alternate 
assignment 



® 2311 Extent 



(T) 2321 Extent 



LUB entry of stored 
standard assignment 
(PUB and JIB pointers) 



PUB pointer 
of alternate 
assignment 



XW 



c L C L C H C H ® 



or B L B L C L C L /j, 
° r B H B H C H C H ^ 



(T) Only when file -protect on DASD 

(5) Lower Cylinder 
Upper Cylinder 

(3) Cell or combined sub -cell and strip 



12 3 



Flag Type 


Bit 


Meaning if Bit = 1 


Contents 





Stored standard assignment 


1 


Alternate assignment 


2 


2311 Extent 


3 


2321 Extent 


4 


Standard assignment for 
DASD extent 


Ownership 


5 


Background 


6 


Foreground 1 


7 


Foreground 2 



Chain Byte. 

Contains the displacement 
index of the next JIB. 
A hexadecimal 'FF' defines 
the end of the chain. 



Bytes 68 - 69 (X'44' - '45') of the communications region contain the address of 
the JIB table entry. Label JIBTAB identifies the first byte of the table. 



Figure 50. Job Information Block (JIB) Table 
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PUB 


- TABLE 






PUBTAB 


Channel 
PUBs - 


















' 


' 








Channel 1 








PUBs 














' 


' 






Channel 7 








PUBs 








1 


1 




PUBEND 
STOPPR 


FF 


PUB- 
delimi 


ta 

rer 


Die 



"Forma* of my PUB** 



Channel 



Unit 



Channel Queue Pointer 



TEB & TEBV Pointer or Error Count 



Device Type 



Device Characteristic Code or SAB Pointer 



Channel Scheduler Flags 



Job Control Flags 



BYTEO- Channel number. (Hex 0-7, FF=NULL) 

BYTE 1 - I/O device unit number. (HEX 1F= 1052, 
HEX 80 = magnetic tape unit . . . ) 

BYTE 2 - HEX 0, 1,2, ... points to the first 
channel queue entry for this device. 

BYTE 3 - If device is a magnetic tape unit* and TEBs 
and/or TEBVs are specified, this byte is a 
TEB/TEBV pointer (HEX 1,2,3...) 

If device is a magnetic tape unit* but 
neither TEBs nor TEBVs are specified, 
this byte is an error counter. 

If device is not a magnetic tape unit*, this 
byte is an error counter. 

BYTE 4 - See Figure 61 for device type codes. 



BYTE 6 - 
Bit 
1 
2 
3: 
4: 
5 
6: 
7: 



= Device busy 

= Switchable device 

= EOJ for SYSRDR or SYSIPT 

= I/O error queued for recovery 

= Operator intervention required 

= Device end posting required 

= Burst device on MPX 

= 7 -track tape unit 



BYTE 7 
Bit 



0-4: standard MODE assignment for 7 -track tape 
(all ones if not tape, all zeros if device is 
down). 
5: device is assigned to a background job 
6: device is assigned to a foreground 1 job 
7: device is assigned to a foreground 2 job 



BYTE 5 - SS of the MODE = parameter in the DVCGEN 
macro for tape unit. (See Figure 62. ) 

For DASD with seek separation, this byte is 
used as the SAB pointer. With track hold but 
not seek separation supported, this byte con- 
tains a pointer to the Track Hold Table entry 
or X'FF 1 (with both SKSEP and TRKHLD specified, 
the track hold pointer is found in the SAB entry). 

For MICR type devices, this byte indicates the 
external interrupt line is in use. 

NOTE: A null is generated for each device to be supported by the supervisor. 

Standard physical unit assignments are made to the PUB table at supervisor generation time. PUBs are ordered by 
channel and priority within a channel. 

Bytes 64 and 65 (X'40' - '41 ') of the communications region contain the address of the PUB table entry. 

Label PUNTAB identifies the first byte of the table. 

*2400 series or 3420 Magnetic Tape Units or 2495 Tape Cartridge Reader (TEBs); 2400 series 

or 3420 Magnetic Tape Units only (TEBVs) 



Figure 51. Physical Unit Block (PUB) Table 
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TEB Table 



TEBTAB 



TEB 1 


TEB 2 


9}^t$pEB3 


TEB 4 


TEB 5 


TEB 6 



Byte 
0- 
1 - 
2- 
3- 
4- 
5- 






1 


2 


3 


4 


5 



Error recovery retry count. 

Permanent read data check error count. 

Number of times the read data check error routine is entered. 

Number of times the write data check error routine is entered. 

Write skip (erase gap) count. 

Noise record count. 



One TEB is generated for each 2400 series or 3420 magnetic tape or 2495 Tape Cartridge Reader unit if the FOPT macro contains 

the TEB = n parameter. Job control resets each TEB at normal or abnormal End-of-Job. An unused TEB contains HEX'FFOOOOOOOOOO'. 

A TEB is referenced from byte 3 of a magnetic tape unit PUB. 



Bytes 70 and 71 (X'46'- 
first byte of the table. 



'47') of the communications region contain the address of the TEB table entry. Label TEBTAB identifies the 



Figure 52. Tape Error Block (TEB) Table 
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r T T 


"T 


1 


| Decimal 






1 




j Displace- 




Byte 


1 




| merit 


Label 


Length | 


Description j 


L — J- J~ — 


_i 




r 

| (TEBV 


Status Block portion of TEBV Table, see Note 1) | 


1 ° 


TEBLEN 


1 




Length of TEBV Error Block (for each Error Block j 
generated) | 


1 1 


TSBLEN 


1 




Length of TEBV Status Block (4, 6, or 22 bytes , | 
see Note 1) I 


1 2 


EVARTH 


1 




EVA Read Error Threshold | 


1 3 


EVAWTH 


1 




EVA Write Error Threshold j 


1 ** 


, TEBSTAT 


"l" 




DASD ESTV File Status | 


1 5 


1 TEBUDC 


1 




ESTVFLE Label Update Counter | 


1 6 


TEBDEV 


1 




Data Set Device Code j 


1 7 


UPXTNT 


4 




Disk Address of Upper Extent of Data Set (cchh) | 


1 H 


TEBRPT 


1 




Number of Records per Track j 


| 12 


NXTESR 


5 




Disk Address of Next Available Space for Data | 
Record (cchhr) j 


1 17 


ESTVLABL 


5 




Pointer to ESTVFLE Label in VTOC (cchhr) j 


| (TEBV 


Error Bloc! 


z portion of TEBV Table, see Note 2) I 


| 22 


TEBV 


1 




Status Indicator (giving status of posting and j 
writing error conditions) | 


| 23 




1 




Usage Indicator (X , 00 , =TEBV Error Block in use, | 
X , FF'=Error Block generated but not serving | 
any tape unit) | 


| 24 




1 




Retry Counter j 


1 25 




1 




Permanent Read Errors j 


1 26 




1 1 




Temporary Read Errors j 


| 27 




1 




Temporary Write Errors j 


| 28 




1 




Erase Gaps | 


| 29 




1 




Noise Blocks j 


| 30 




1 




Permanent Write Errors | 


1 31 




1 




Cleaner Actions | 


| 32 




2 




Number of start I/Os j 


| 34 




6 




Volume Serial Number (volume ID) j 


| 40 (re 


speat bytes 


22-39 


for each TEBV Error Block) j 



Figure 53. TEBV Table Showing Status Block and Error Blocks (Part 1 of 2) 
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Note 1 : The TEBV (Tape Error Block by Volume) 
Table is composed of one Status Block and (n) Error 
Blocks, and is addressed symbolically by label 
TEBVTAB. 

Supervisor generation options in the FOPT macro 
determine the size of the TEBV Status Block at 
generation time: 

• When EVA is chosen without ESTV, the TEBV 
Status Block is four bytes long (bytes 0-3) , 
followed by TEBV Error Blocks, so that bytes 
4-21 are omitted. 

• When ESTV output is to SYSLOG, the TEBV Status 
Block is six bytes long (bytes 0-5), followed 
by TEBV Error Blocks, so that bytes 6-21 are 
omitted - 

• When ESTV output is to DASD, the TEBV Status 
Block is 22 bytes long (bytes 0-21, such as 
shown in this Figure) , followed by TEBV Error 
Blocks • 

Note 2 : The number of TEBV Error Blocks generated 
corresponds to the (n) parameter of the FOPT macro 
for TEB, TEBV, or EVA options, A TEBV Error Block 
always contains 18 bytes, as shown in bytes 22-39 
of this Figure. Therefore, the TEBV Table is 
composed of one TEBV Status Block (with its byte 
length dependent on supervisor generation options, 
as described in Note 1 ) , followed by (n) number of 
18-byte TEBV Error Blocks. 

L 

Figure 53. TEBV Table Showing Status Block and Error Blocks (Part 2 of 2) 
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FLPTR 



CHANQ 



LUBID 



REQID 



LUBDSP 



TKREQID 



A 






B 











D 




F 




G 




H 




(~ 






Chain 
Byte 


















Chain 
Byte 
















PUB 
Byte 2 


Chain 
Byte 
















E 


The length of 
the queue is 
determined at 
supervisor gen- 
eration time. 


Chain 
Byte 


















Chain 
Byte 






















Chain 
Byte 


















Chain 
Byte 
















| 


Chain 
Byte 


















Chain 
Byte 











Byte 



KEY 

H 

H 

B 


CD 



The free list pointer contains a displacement index to a free list entry within the channel queue. 
The free list is a group of entries that function in essentially the same manner as a device queue. 
When the free list pointer contains a hexadecimal FF, it indicates that no more free list entries 
are available. 

The first byte of the channel queue entry (chain byte) contains a pointer (displacement index) 
to the next channel queue entry for that device. A hexadecimal FF indicates the last channel 
queue entry for that device. New requests on a given device are queued at the end of a given 
device queue. 

CCB address for the specified device. 

A pointer (displacement index) to the entire LUB table identifying the logical unit making the 
I/O request. This is doubled to get the actual displacement into the full LUB table. 

Contains a pointer (displacement index) to the first channel queue entry for a specific device 
(Figure 51). 

Contains a code identifying the program making the I/O request. The one- byte entry is called 
a RID (Requestor Identification). The RID indicates what program the CCB belongs to. The 
RID is in the form X'nk'. 



n = user -storage protection key (supervisor = 0, BG = 1 , F2 = 2, Fl =3). 
k = for all user requests and all supervisor CCBs, where n = 0. 
k = 1 for supervisor CCBs to SYSLOG that bypass ID prefix, 
k = 2 for a fetch CCB. 
nk = FF for any unused channel queue entries. 

I G I Contains X'FF 1 if the LUB is nonsystem class, or contains the displacement index within the 
partition LUB if it is a system class LUB. 

I H Contains X'FF', or the displacement into the PIB table for the PIB of the task requesting I/O. 

Bytes 108- 109 (X'6C- '6D') of the communications region contain the address of the LUBID Table. 
Label LUBIDTAB identifies the first byte of the table. The addresses of the other tables are not at fixed 
locations. They can be found in the program listing cross-reference by using the labels CHANQ, 
REQIDTAB, LUBDSPTB, and TSKIDTAB. 



Figure 54. CHANQ, LUBID, REQID, I.U13DSP, and TKREQID Tables 
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X f FF f | CCB 
or j Address 
Pointer j 



h 



H- 



T 

I 

Address of | Key | Flag 
Held Track | of j and 
(BBCCHH) j Task | Counter 

I 



| X | XXX I xxxxxx I x I 
Byte 1 4 10 11 



Byte 



1-3 



4-9 



10 



11 



Explanation 



X'FF' or pointer to next available entry 
in the table- This is also placed in 
the PUB table, byte 5. 



H 



Address of CCB associated with the task 
requesting the hold. 



Disk address of the track being held (in 
the form BBCCHH). 






Key of the task owning the track. 






Bit on indicates a task is waiting for 
this track. 

1-3 Unused 

4-7 counter of number of holds on the 
track. 



Figure 55. Track Hold (TKHDTAB) Table 



_j 
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COMREG* 

Displacement 
hexadecimal 

Displacement 
decimal 



Displacement 
hexadecimal 

Displacement 
decimal 



Displacement 
hexadecimal 

Displacement 
decimal 







8 
8 


OA 
10 


OC 
12 


17 
23 


18 
24 


20 
32 


24 
36 


28 
40 


2C 

44 


Date 


Address of 
PPBEG 


Address of 
EOSSP 


Problem Program Use 


UPSI 
Byte 


Job Name 


Highest 
Storage 
Address 
of the 
Partition 


End Address 
of Last Phase 
Fetched or 
Loaded 


Address of 
Uppermost 
Byte of'Phase 
with Highest 
lEnding Address 


Label 
Area 
Length 


xxxxxxxx 


XX 


XX 


XXXXXXXXXXX 


X 


XXXXXXXX 


XXXX 


XXXX 


XXXX 


XX 



2E 
46 


30 
48 


34 
52 


35 
53 


36 
54 


37 

55 


38 
56 


39 
57 


3A 
58 


3B 
59 


3C 
60 


3E 
62 


PIK 
(PID) 


End of 

Storage 

Address 


Machine 

Confg. 

Byte 


System 
Confg. 
Byte 


Standard 

Language 

Translator 

I/O 

Options 


Dump, 
Log and 
ASCII 
Options 


Job 

Control 

Byte 


Linkage 
Control 
Byte 


Language 
Translator 
Control 
Byte 


Job 

Duration 
Indicator 
Byte 


Disk 

Address of 
Label 
Cylinder 


Address 

of 

FOCL 


XX 


XXXX 


X 


X 


X 


X 


X 


X 


X 


X 


XX 


XX 



Job Control Switches 



40 
64 


42 
66 


44 
68 


46 
70 


48 
72 


4A 
74 


4C 
76 


4E 
78 


4F 
79 


58 
88 


5A 
90 


5C 
92 


Address 

of 

PUB 


Address 

of 

FAVP 


Address 

of 

JIB 


Address 

of 

TEB 


Address 

of 

FICL 


Address 

of 

NICL 


Address 

of 

LUB 


Line 
Count 
for 
SYSLST 


System Date 


LIOCS 
Comm. 
Bytes 


Address of 
1st Part of 
PIB Table 


ID Number 
of Last 
Checkpoint 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


X 


xxxxxxxxx 


XX 


XX 


XX 



Displacement 
hexadecimal 

Displacement 
decimal 



5E 
94 


60 
96 


62 
98 


64 
100 


66 
102 


68 
104 


6A 
106 


6C 
108 


6E 
110 


Length of LUB 
ID Queue = 
No. of Channel 
Queue Entries 


Address of 
Disk 

Information 
Block (DIB) 


Address of 
Error 
Recovery 
Block 


Address of 
PC Option 
Table less 
8 bytes 


Address of 
IT Option 
Table less 
8 bytes 


Address of 
OC Option 
Table less 
8 bytes 


Key of 
Program 
with Timer 
Support 


Address of 
the LUBID 
Queue 


Logical 

Transient 

Key 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


XX 



Displacement 
hexadecimal 

Displacement 
decimal 



70 
112 


7C 
124 


7E 
126 


80 
128 


84 
132 


86 
134 


87 
135 


88 
136 


Supervisor Constants 


Address of 
2nd 
Part of 
PIB Table 


Address of 
MICR DTF 
Table 
(PDTABB) 


Address of 
QTAM 
Vector 
Table 


Address of 
BG Comm. 
Region 


Op- 
tion 
Indi- 
cator 


System 
Con- 
figur- 
ation 
Byte 2 


Pointer to 
Comm. 
Region 
Extension 


XXXXXXXXXXXX 


XX 


XX 


XXXX 


XX 


X 


X 


XXXX 



* The address of the communications region is in fixed location X'14' - X'17'. 

Displacement values illustrated can be used to access the listing and/or the key that follows the figure. 
The key offers more detailed information about each area when necessary. 

Figure 56. Supervisor Communications Region (Part 1 of 5) 
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Key to Communications Region Displacements: 






24 



32 



36 



40 



~461 



MM/DD/YY or DD/MM/YY obtained from the job control date statement. Format controlled by COMREG + 53 
(System Configuration Byte, date convention bit 0). 

Address of the problem program area. 

Address of the beginning of the problem program area. Y (EOSSP) = Y (PPBEG) if the storage protection option has not 
been selected. Y (EOSSP) equals the first main storage location with a storage protection key of 1, if storage protection 
is supported. 

User area. If seek separation option is specified, bytes 12 and 13 are used at IPL time for the address of the seek 
address block. 

User program switch indicator. 

Job name set by the job control program from information found in the job statement. 

Address of the uppermost byte of the problem program area as determined by the IPL program (Clear storage routine 
determines the address, ENDRD routine of $$A$IPL2 stores it.), or the address of the uppermost byte of the partition 
as determined during processing of the ALLOC statement. 

Address of the uppermost byte of the last phase of the problem program fetched or loaded. The initial value (as shown) 
is overlaid by the first fetch or load to the problem program area. 

Highest ending main-storage address of the phase among all the phases having the same first four characters as the 
operand on the EXEC statement. For the background partition only, job control builds a phase directory of these 
phases. The address value may be incorrect if the program loads any of these phases above its link-edited origin 
address. If the EXEC statement has no operand, job control places in this location the ending address of the program 
just link-edited. 

Length of the problem program label area. 

Program Interrupt Key - PIK (if asynchronous processing is not supported): Value is equal to the displacement from the 
start of the PIB fable to the PIB for the task. 

OR 
Partition Identifier - PID (if asynchronous processing is supported): Value is hex 10, 20, or 30 to identify the partition 
in which a maintask or a subtask is running. (See the communications region extension, displacement 18, for the PIK 
in an asynchronous processing supervisor.) 

First byte - always zero. 

Second byte - contains the key of the program that was last enabled for interrupts, or the partition identifier in 
an AP supervisor. 





Task 






PIK (PID) Value 




*AII Bound 






X'00 1 




BG 






X'10' 




*F2 






X'20' 




*F1 






X'30 1 




Attn Rtn 






X'40' 




Quiesce I/O 






X'50' 




Supervisor 






X'60' 




*These tasks do 
Logical end of main 


not exis 
storage 


I - in a non-MPS supervisor. 


48 


address. 



Figure 56. Supervisor Communications Region (Part 2 of 5) 
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Key to Communications Region Displacements: 



H 



Machine Configuration Byte (Values set at supervisor generation time.) 

Bit 0: 1 = Storage protect feature 

= No storage protect feature 
1: 1 = Decimal feature 

= No decimal feature 
2: 1 = Floating-point feature 

= No floating-point feature 
3: 1 = Physical transient overlap option 

= No physical transient overlap option 
4: 1 = Timer feature 

= No timer feature 
5: 1 = Channel switching device 

= No channel switching device 
6: 1 = Burst mode on multiplex channel support 

= No burst mode on multiplex channel support 
7: Reserved 



53 



System Configuration Byte 



Bit 

1 
2 
3: 
4: 
5; 
6: 
7: 



n = MMnnvv 1 ^ a * e convention bit set at generation time by STDJC) 

1 = Multiprogramming environment 

= Batch job environment 

1 = DASD file-protect supported 

= No file-protect support for DASD 

1 = DASD SYSIN - SYSOUT 

= No DASD SYSIN - SYSOUT 

1 = Teleprocessing 

= No teleprocessing 

1 = Batch job in foreground 

= No BJF 

1 = Asynchronous processing 

= No AP 

1 = Track Hold 

= No Track Hold 



ED 



This byte contains the standard language translator I/O options (set by the STDJC macro). 



BitO: 
1 
2 
3: 
4 
5 
6: 
7; 



DECK option 
LIST option 
LISTX option 
SYM option 
XREF option 
ERRS option 
CHARSET option 
Reserved 



= yes, output object modules on SYSPCH 

= yes, output source module listings and diagnostics on SYSLST 

= yes, output hexadecimal object module listings on SYSLST (compilers only) 

= yes, output symbol tables on SYSLST/SYSPCH 

= yes, output symbolic cross reference list on SYSLST 

= yes, output diagnostics on SYSLST (compilers only) 

= 48, input on SYSIPT is 48 or 60 character set 



55 



This byte contains the standard supervisor options for abnormal EOJ and control statement display, and the indicator 
for the presence of the ASCII-EBCDIC and EBCDIC-ASCII translation tables. 



Bit 0: Always on 

1: DUMP option 

2: Reserved 

3: LOG option 

4-6: Reserved 

7: ASCII option 



1 = yes, dump registers and storage on SYSLST 
1 = yes, list all control statements on SYSLST 
1 = yes, ASCII supported 



Figure 56. Supervisor Communications Region (Part 3 of 5) 
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Key to Communications Region Displacement: 



GD 



Job control byte 

Bit 0: 1 = Job Accounting 

Interface (J A) not supported 

= Job Accounting 

Interface (JA) is supported 
1 : 1 = Return to caller on LIOCS disk open failure 

= Do not return to caller on LIOCS disk open failure 
2: 1 = Job control input from SYSRDR 

= Job control input from SYS LOG 
3: 1 = Job control output on SYSLOG 

= Job control output not on SYSLOG 
4: 1 = Cancel job 

= Do not cancel job 
5: 1 = Pause at end-of-job step 

= No pause at end-of-job step 
6: 1 = SYSLOG is not a 1052 

= SYSLOG is a 1052 
7: 1 = SYSLOG is assigned to the same device as SYSLST 

= SYSLOG is not assigned to the same device as SYSLST 



I 57 I Linkage control byte 



58 



H 



: SYSLNK open for output 

: SYSLNK not open for output 

: $ or FG program phase deleted, renamed, or cataloged (flag bit for $MAINEOJ) 

= Allow EXEC 

= Suppress EXEC 

: Catalog linkage editor output 

: Do not catalog linkage editor output 

: Supervisor has been updated 

: Supervisor has not been updated 

: Executing in AUTOTEST mode 

: Not executing in AUTOTEST mode 

: Reallocate or condense in progress 

: Fetch $MAINEOJ at end of job to update system directory 

= Do not fetch $MA IN EOJ at end of job for update 

Language processor control byte. This is a set of switches used to specify nonstandard language translator options. 
The switches within the byte are controlled by job control OPTION statements and when set to 1, override standard 
options. The format of this byte is identical to the stnadard option byte (displacement 54) with one exception: 
Bit 7 in this byte is used to indicate to LIOCS that the rewind and unload option has been specified. 

Job duration indicator byte 



it 0: 


1 







1: 


1 


2: 


1 







3: 


1 







4: 


1 







5: 


1 







6: 


1 


7: 


1 








Bit 0: 



> Set by Attention Routine for Job Control 



4: 



1 = Within a job condition 

= Outside a fob condition 

1 = Dump on an abnormal end-of-job condition 

= No dump on abnormal EOJ 

1 = Pause at EOJ step 

= No pause at EOJ 

1 = Job control output on SYSLST 

= Output not on SYSLST 

1 = Job is being run out of sequence with a temporary assignment for SYSRDR 

= Conditions for 1 setting not met 

1 = PCIL is being condensed 

= PCIL is not being condensed 
Reserved 

1 = Batch command just issued 

= Condition for 1 setting did not occur 



Figure 56. Supervisor Communications Region (Part 4 of 5) 
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Key fro Communications Region Displacements: 



Binary disk address of the volume label area (label cylinder). 







79 



90 



92 



94 



96 



98 



poo 

|7o6 



108 



110 



112 



124 



126 



128 



132 



134 



135 



136 



As illustrated (Figures for information blocks, I/O tables, and pointers 
begin at Figure 21 which refers to more detailed Figures). 



Set to the value nn specified in the LINES = nn parameter of the STDJC macro. 

The format of the system date contained within this field is determined by the IPL program from information supplied in the 
date convention byte (displacement 53). Bytes 85- 87 contain the day count. 

Bytes reserved for use by LIOCS. Transient dump programs insert a key to indicate to the LIOCS end -of- volume routine, 
$$BCMT07, that it was called by a B- transient. 

Address of the first part of the program information block (PIB) table. (See Figures 18 and 19). 

ID number of the last checkpoint. Temporary indicator of file protected DASD. Used at IPL time, when DASDFP 
is specified. 

Length of the LUBID queue (in bytes). This equals the number of channel queue entries. It can also be used to access the 
REQID, LUBDS.P, and TKREQID queues: (See Figure 17- GY24-5151). 

Address of disk I/O position data. This is the starting address of the disk information block (DIB) table (See Figure 17). 

Address of the beginning of the error recovery block. The error recovery block contains addresses of error recovery exits, 
error recovery queue information that can be used by physical transients routines, and defines storage for the error queue 
entries (See Figure 43 - GY24-5151). 

|104| Option Tables. (See Figure 13- GY24-5151). 

Key of the program (BG, F2, or Fl) that has timer support. 

Address of LUBID queue. (See Figure 17- GY24-5151). 

Logical Transient Key (LTK) contains the same value as the PIK (PID) (Displacement 46) when the logical transient is 
requested. When the transient area is not in use, LTK is equal to zero. The SVC 2 routine sets the LTK. The SVC 11 
routine resets the LTK. 

Supervisor constants: 

DOLLARBO (4 bytes) = C'SSBO' 

SSKADR (5bytes) = XL5'0' 

LTAREA (3 bytes) = Adcon of LTSVPT, logical transient save pointer 

Address of second part of program information block (PIB) table (See Figure 20). 
Address of PDTABB, table of DTF addresses for MICR support. 
Address of QTAM vector table (IJLQTTAD). 
Address of background communications region. 

Option Indicator Byte 

Bit 0: 1 = MCRR indicated for OBR writer 

= No MCRR indicated for OBR writer 
1: 1 = EU interface active 

= EU interface not active 
2: 1 = TP request 

= No TP request 
3: 1 = Supervisor support for only 9- track tape 

= Supervisor does not support 9- track tape exclusively 
4: Reserved 
5: 1 = RETAIN/370 support generated 

= RETAIN/370 support not generated 
6- 7: Reserved 

System Configuration Byte 2 

Bit 0: 1 = PC I L supported 

= PCIL not supported 
1 - 7: Reserved 

Pointer to communications region extension (See Figure 11). 



Figure 56. Supervisor Communications Region (Part 5 of 5) 
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BGXTNSN (See 

(Hexadecimal 
Displacement) 

(Decimal 
Displacement) 


Note) 
4 

4 


8 
8 


OC 

1 

12 


10 
16 


12 
18 


14 
20 


18 
24 


1C 

28 


20 
32 


CE Table 
Address 


Track Hold 
Table Address 
(THTABAD) 


Difference 
Between 1st 
and 2nd Part 
of PIB Table 
(PIBDIFF) 


AB Termin- 
ation Table 
Address - 8 
(ABPTR) 


ID of 

Task 

Owning 

LTA 

(LID) 


ID of 
Task 
Running 
(PIK) 


Task Requester 
ID Table 
Address 
(TKIDPTR) 


Address 
Used by 
QTAM 
(MVCFLD 


SDR Table 

Address 

(SDRTABLE) 


TEBV 
Table 
Address 
(TEBVTAB) 


xxxx 


XXXX 


XXXX 


XXXX 


XX 


XX 


XXXX 


XXXX 


XXXX 


XXXX 



24 (Hexadecimal 
Displacement) 

36 (Decimal 
Displacement) 


28 
40 


2C 

44 


30 
48 


34 
52 


38 
56 


3C 
60 


OLTEP 

Linkage 

Address 


RMS 
Linkage 
Address 
(RASLINK) 


ASCII-EBCDIC 
Translation 
Table Address 


(Reserved) 


JAI Common 
Table Address 
(ACCTCOMN) 


JAI Partition 
Table Address 
(ACCTxx) 


&SYSPARM 

Field 

Address 


XXXX 


XXXX 


XXXX 


XXXX 


XXXX 


XXXX 


XXXX 



Key to displacements: 
I I CE Table Address. 
| 4| Track Hold Table Address (THTABAD). 

8j Difference between addresses of first part of PIB table and second part of PIB table (PIBDIFF). 
I 12 I Abnormal Termination Table Address (minus 8) (ABPTR). 



H 



16 Identification (LID) of the task owning the Logical Transient Area. Contains same value as PIK (displacement 18) when LTA is in use. Contains 
zero when LTA is not in used . 

18 Program Interrupt Key (PIK) if asynchronous processing is supported. Value is equal to the displacement of the start of the PIB table to the PIB 

of the main task or subtask being selected (running). 

First byte - zero 

Second byte - contains the displacement into the PIB table for a maintask or a subtask. 
Maintask - PIK value is hex 10, 20, or 30. 
Subtask - PIK value is hex 70, 80, 90, . . . F0. 



20 



24 



28 



32 



36 



40 



44 



48 



52 



56 



60 



Task Requester ID Table Address (TKIDPTR). 

MVCFLD address used by QTAM . 

Statistical Data Recorder Table Address (SDRTABLE). 

Tape Error Blocks by Volume Table Address (TEBVTAB). 

Pointer to OLTEP Linkage Addresses. 

RMS Linkage Area Address (RASLINK). 

ASCII - EBCDIC Translation Table Address. 

(Reserved) . 

JAI Common Table Address (ACCTCOMN). 

JAI Partition Table Address (ACCTxx; where xx = BG, F2, or Fl). 

Address of &SYSPARM Field . 



Note: If communications regions are. generated for the foreground partitions, the labels in those extensions will be F2XTNSN and 
F1XTNSN. The extensions, wherever used, are generated by the COMMNEX macro. Following the background extension 
(and immediately preceding the MCRR Linkage Table) is a six-byte area. The first four bytes are the address of the back- 
ground save area (BGSAV), and the last two bytes are the value 4,096, used to restore base registers. 



Figure 57. Communications Region Extensions 



252 DOS System Service Programs 



PIB TABLE 



Byte 
Number 



10 



12 



13 



14 



15 



= 16 
Byte 
Length 



All 

Bound 

PIB 



Flag 
Byte 
See A 



Reserved 



SP Prefix 



Branch Instruction to the 
All Bound Routine 



Reserved 



Problem 
Program 
PIB 
(Note 1) 



Flag 
Byte 
See B 



Cancel 

Code 

(Fig. 63) 



SYSLOG ID 
(BG, F2, or Fl) 



NOP 
Instruct- 
ion 
(CR) 



Address of the 
Partition Save Area 



Number 

of Core 

Blocks 

(Note 2) 



Address of the Origin 
of the Partition 



PIB 
Assign 

Flag 
See D 



User 

LUB 

Index 



Number 

of 
Program 

LUBs 



Flag 
Byte 
SeeC 



Attention 
PIB 



Flag 
Byte 
See E 



Cancel 

Code 

(Fig. 63) 



SYSLOG ID 

(AR) 



Branch 
Code 
(BC) 



Active=Address of 
Save Area 

Inactive = Remainder of 
BC Instruction 



Switch 

Byte 
See F 



Logical Transient Bucket 
(contains save 
area address) 



X'07' 
See D 



Reserved 



Address of 

the Logical 

Transient 



Quiesce 
PIB 



Flag 
Byte 
See A 



Cancel 

Code 

(Fig. 63) 



C"/&* 



Branch Instruction to 
Quiesce I/O Routine 



Scratch 

Byte 
X'00' 



Channel PUB Table Index Values 



X'00' 



X'04' 



X'OO 



X'10' 



X'14« 



x'is 1 



Supervisor I 
PIB 



Flag 
Byte 
See A 



Cancel 

Code 

(Fig. 63) 



SP Prefix 



Branch Instruction to 
General Exit Routine 



Address of 
SYSRES PUB 



Length of Error 
Queue Entry 



Constants to Clear Bytes 
2-5 of CCB 



X'lF" 



X'05' 



X'OO' 



X'00' 



Subtask 
PIB for AP I 
(Note 3) * 



Flag 
Byte 
See B 



Cancel 

Code 

(Fig. 63) 



SYSLOG ID 
(BG, F2, or Fl) 



NOP 
Instruc- 
tion 



Address of the 
Save Area 



Number 
of Core 
Blocks 
(Note 2) 



Address of the 
Origin of the 
Main Task 



PIB 
Assign 

Flag 
See D 



User 
LUB 
Index 



Number 

of 
LUBs 



Flag 
Byte 
SeeC 



{Background PIB 
Forearound 2 PIB 
Foreground 1 PIB 
When a batch-only environment is established at generation time, the All Bound and Foreground PIBs are excluded from the table, and only 
one (BG) problem program PIB is built. However, the X'20' bytes that F2 and Fl PIBs normally occupy (between PIBBG and PIBAR) are 
filled with 32 bytes of D IBs data. 

Note 2: Number is in multiples of 2K for F2 and Fl . BG is always 1 OK (X'OA 1 ). 

Note 3: Total of nine subtask PIBs are generated, and only when AP is specified at generation time. 

* See Figure 59 for flag byte expansions A, B, C, D, E and F. 

Bytes 90 and 91 (X'5A' - '5B') of the communications region contain the address of the first part of the PIB Table. Label PIBTAB identifies the first 
byte of the table. 



Figure 58. First Part of Program Information Block (PIB) Table 
(See Figure 60 for Second Part) 
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A Supervisor, Quiesce, and ALL Bound PIB Flags: 





PIB Assign Flag 




Bit 0: 


1 = Always one 




X'80' = SYSRES DASD file protect inhibited (allow write 




1-4 : 


= Always zero 




operation on SYSRES) 




5 : 


1 = Always one 




X'40 1 = Channel appendage exit allowed (BTAM) 




6 : 


1 = Active 
= Inactive 




X'20 1 = Cancel in progress (used in terminator function) 
X 1 10' = Cancel control (set on a foreground cancel) 




7 : 


1 = Active 
= Inactive 




X'08' = Hold-Release flag for foreground assignments 

X'07' = Supervisor or Attention routine PIB assign flag setting 

X'04' = Background program PIB assign flag setting 




Note: 


If PTO = YES is specified, Bit 6 is a one in the 
Quiesce I/O PIB when attached by the super- 
visor. Otherwise it is always zero. 


m 


X'02' = Foreground 1 program PIB assign flag setting 
X'OT = Foreground 2 program PIB assign flag setting 








Attention PIB Flag 


B 


Problem 


'rogram PIB Flag (First Byte in PIB): 












Bit 0: 1 = Registers stored 




Bit 0: 


1 = Registers stored 
= Registers not stored 




= Registers not stored 
1-5 : = Always zero 




1-3 : 


= Always zero 




6 : 1 = Attention routine active 




4 : 


1 = QTAM Wait active 
= QTAM Wait inactive 




= Attention routine SVC 2-bound 
7 : 1 = Active 




5 : 


= Normal execution 

1 = Program has seized the system 




= SVC 7-bound 




6 : 


1 = Unbound 

= SVC 2-bound (B-transient in progress) 




X'80 1 indicates the attention routine is not present in the system. 
X'89' indicates the program is IDRA bound 




7 : 


1 = Unbound 

= SVC 7-bound (waiting for an I/O interrupt) 


□ 


Attention PIB Switch Byte 




X'80' 


indicates the program is not present in the system 






X'87 1 


indicates the program is PTO bound 




Bit 0-2: Reserved 




X'89' 


indicates the program is IDRA bound 




3: 1 = PTAFTCH (Fetch $$ANERRY, Z, or 0) Switch ON 


E 








= PTAFTCH (Fetch $$ANERRY, Z, or 0) Switch OFF 


Problem 


Program PIB Flag (Last Byte In PIB): 




4: 1 = Detach Logical Attention Routine ($$BATTNA) 
Switch ON 




Bit 0: 
1: 


1 = Batched Job in Foreground 

= No BJF 

Cancel in LTA and Device not Assigned 




= Detach Logical Attention Routine ($$BATTNA) 
Switch OFF 
5: 1 = Physical Attention Recall Switch ON 




2: 


1 =/&on SYSIN if DASD 
0= No/&on SYSIN 




0= Physical Attention Recall Switch OFF 
6: 1 = Attention Request Switch ON 




3-4: 


Reserved 




= Attention Request Switch OFF 




5: 


1 = Task is cancelled 
= Task not cancelling 




7: 1 = External Interrupt Request Switch ON 
= External Interrupt Request Switch OFF 




6: 


1 = Subtask (s) attached 
= No subtasks attached 








7: 


1 = In AB Routine 

= Not in AB Routine 







Figure 59 • PIB Flag Expansions 
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Byte 
Number 



10 



11 



12 



13 



14 



15 



16 

Byte 

Length 



All Bound 
P1B 



IRlsIlliil 



H'16' 
Priority of 
All Bound 

PIB 
(Lowest) 



= Reserved 



H'O' 

All Bound 

PIB 

Displacement 



iRisiiSii 



Background 
PIB 



Address of 
BG Comm. 
Region 



System 
LUB Index 



Reserved 



Priority of 
BGPIB 

(Note 4) 



Address of Termination 
ECB, if any, or F'O' 



X'0010' 

BG PIB 

Displacement 



Reserved 



FG2 
PIB 

(Note 1) 



Address of 

Area Comm. 

Region 

(Note 2) 



System 
LUB Index 



Reserved 



Priority of 
F2 PIB 

(Note 4) 



Address of Termination 
ECB, if any, or F*0' 



X»0020' 

F2 PIB 

Displacement 



Reserved 



FG1 
PIB 

(Note 1) 



Address of 

Area Comm. 

Region 

(Note 2) 



System 
LUB Index 



Reserved . 



Priority of 
Fl PIB 

(Note 4) 



Address of Termination 
ECB, if any, or F'O' 



X'0030' 

Fl PIB 

Displacement 



Reserved 



Attention 
PIB 



Address of 

BG Comm. 

Region 



Reserved;; 



H'3» 

Priority of 

Attention 

PIB 



F'O 1 



X'0040' 
Attention PIB 
Displacement 



Reserved : 



Quiesce 
I/O PIB 



Reserved 



H'2' 

Priority of 

Quiesce 

I/O PIB 



F'O' 



X'0050' 
Quiesce PIB 
Displacement 



Reserved 



Supervisor 
PIB 



Reserved 



H'l' 
Priority of 
Supervisor 

PIB 
(Highest) 



F'O' 



X'0060' 

Supervisor 

PIB 

Displacement 



Reserved = 



Subtask 
PIB 

(Note 3) 



Address of 

Area Comm. 

Region 



System 
LUB Index 



Reserved 



Priority of 
Subtask 

(Note 4) 



ECB Address for 
Subtask, or F"0' 



PIB 

Displacement 
of Maintask 



l;l!s!i!Iil 



Note 1. Generated only if MPS is specified. 

Note 2.. Always background communications region except when MPS = BJF. 

Note 3. Total of nine subtasks generated, and only when AP is specified. 

Note 4. Will be filled in with halfword indicating the relative priority of task in the system (range H'4 1 to H'15', the lower the 
number the higher the priority). 

Bytes 124 and 125 (XVC'-VD 1 ) of the communications region contain the address of the second part of the PIB table. Label 
PIB2AD identifies the first byte of the table. The second part of PIB table comes before the first part in storage allocation. 
Refer to Supervisor Storage Allocation, figure 39. 

Figure 60. Second Part of Program Information Block (PIB) Table 
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Card Code 


Actual Device 


Dev . Type 
X'nn' 


Device Type 


2400T9 


9 -track 2400 Series Magnetic Tape Units 


50 


Magnetic Tape Units 


9 -track 3420 Magnetic Tape Units 


2400T7 


7 -track 2400 Series Magnetic Tape Units 


7 -track 3420 Magnetic Tape Units 


2495TC 


2495 Tape Cartridge Reader 


51 


Tape Cartridge Reader 


1442N1 


1442N1 Card Read Punch 


30 


Card Readers - Punches 


2520B1 


2520B1 Card Read Punch 


31 


2501 


2501 Card Reader 


10 


Card Readers 


2540R 


2540 Card Reader 


11 


2540P 


2540 Card Punch 


21 


Card Punches 


2520B2 


2520B2 Card Punch 


20 


1442N2 


1442N2 Card Punch 


22 


2520B3 


2520B3 Card Punch 


20 


1403 


1403 Printer 


40 


Printers 


1403U 


1403 Printer with UCS Feature 


42 


3211 


3211 Printer 


43 


1404 


1404 Printer 


40 


1443 


1443 Printer 


41 


1445 


1445 Printer 


41 


1050A 


1052, 3210, or 3215 Printer -Keyboard 


00 


UNSP 


Unsupported Device 


FF 


Unsupported. No burst mode on multiplexor channel 


UNSPB 


Unsupported Device 


FF 


Unsupported with burst mode on multiplexor channel 


2311 


2311 Disk Storage Drive 


60 


DASD 


2314 


2314 Direct Access Storage Facility 


62 


2319 Disk Storage Facility 


2321 


2321 Data Cell Drive 


61 


1412** 


1412 Magnetic Character Reader 


75 


MICR - Magnetic Ink Character Recognition Devices 
and Optical Reader/Sorters 


1419** 


1419 Magnetic Character Reader 


72 


1255 Magnetic Character Reader 


1259 Magnetic Character Reader 


1419P** 


1419 Dual Address Adapter Primary Control 
Unit 


73 


1419S** 


1419 Dual Address Adapter Secondary 
Control Unit 


74 


2701 * 


2701 Data Adapter Unit 


DO 


Teleprocessing lines 

A = SAD0 command when enabling the line 
B = SAD1 command when enabling the line 
C = SAD2 command when enabling the line 
D = SAD3 command when enabling the line 


2702 I 
\ D 




Dl 


2703 


2703 Transmission Control 


D2 


2955 


2955 Data Adapter Unit 


D7 


Data link for RETAIN/370 


2671 


2671 Paper Tape Reader 


70 


Paper Tape Reader 


1285 


1285 Optical Reader 


76 


Optical Readers 


1287 


1287 Optical Reader 


77 


1288 


1288 Optical PageReader 


1017 


1017 Paper Tape Reader with 2826 
Control Unit Model 1 


78 


Paper Tape Reader 


1018 


1018 Paper Tape Punch with 2826 Control 
Unit Model 1 


79 


Paper Tape Punch 


2260 


2260 or 2265 Display Station 


CO 


Display Station 


7770 . 


7770 Audio Response Unit 


D3 


Audio Response Units 


7772 


7772 Audio Response Unit 


D4 


1017TP 


1017 Paper Tape Reader with 2826 
Control Unit Model 2 


D5 


Paper Tape Reader 


1018TP 


1018 Paper Tape Punch with 2826 Control 
Unit Model 2 


D6 


Paper Tape Punch 


Note: The codes used in the DVCGEN macros are the same codes used in IPL statements. 

* For other teleprocessing devices, see IBM System/360, DOS BTAM and QTAM PLMs, GY30-5001 and GY30-5002. 
** This device type code is also used for the 1270/1275 optical reader/sorters. 



Figure 61. Device Type Codes 
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r~ 


Density 


— T 




-T 


Convert 


-*T- 




" T 

| SS 


-1 


L , 


(Bytes per inch) 


L 


Parity 


-4. - 


Feature 


J._ 


Translate 


jcode 
-J. - 


* 1 


r 


200 


— r 


odd 


T 


on 


1 


off 


T 

| 10 


1 




200 




odd 




off 




off 


| 30 






200 




odd 




off 




on 


| 38 






200 




even 




off 




off 


j 20 




h 


200 


-+- 


even 


| off 


-+- 


on 


| 28 
--+ 


h 




556 




odd 




on 




off 


| 50 






556 




odd 




off 




off 


| 70 






556 




odd 




off 




on 


| 78 






556 




even 




off 




off 


| 60 




L 


556 


L 


even 


-4. - 


off 


—4. 


on 


| 68 

„ „ i 


■ 


r 




— r 




T 




1 




r 


i 




800 




odd 




on 




off 


| 90 






800 




odd 




off 




off 


| B0 






800 




odd 




off 




on 


| B8 






800 




even 




off 




off 


| A0 






800 




even 




off 




on 


| A8 






800 




dual 


density nine-track 


| C8 






1600 




dual 


density nine- track 


| CO 





j * Refer to PUB Table (Figure 51) f byte 5, 

L- 



Figure 62. Density Data 
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Cancel 
Code (hex) 

10 
17 



18 



h 



32 



33 


0P79I 


34 


0P84I 


35 


0P85I 


40 





80 





FF 


0P78I 


FF* 


0P83x 



Message 
Code 



0S02I 



19 


0P74I 


1A 


0P73I 


IB 


0P82I 


1C 


OS 14 1 


ID 


0S12I 


IE 


0S13I 


IF 


0P81I 


20 


0S03I or 




0S11I 


21 


0S04I or 




0S09I 


22 


0S05I or 




0S06I 


23 


0S02I 


24 


0S01I 


25 


0P77I 


26** 


0P71I 


27 


0P70I 


28 


— — — 


30 


0P72I 


31 


0P75I 



0P76I 



Descriptive Part of Message 
(or Condition) 

Normal EOJ 

(Same as 23 but causes dump 

because subtasks were attached 

when maintask issued CANCEL 

macro) 

(Eliminates cancel message 

when maintask issues DUMP 

macro with subtasks attached) 

I/O Operator Option 

I/O Error 

Channel Failure 

CANCEL ALL Macro 

Maintask Termination 

Unknown ENQ Requestor 

CPU Failure 

Program Check 

Illegal SVC 

Phase Not Found 

Program Request 
Operator Intervention 
Invalid address or insufficient 
core allocation to a partition. 
SYSXXX Not Assigned 
(un assigned LUB code) 
Undefined Logical Unit 
(invalid LUB code in CCB) 
(QTAM cancel in progress) 
Reading Past /£ Statement 
(on SYSRDR or SYSIPT) 
I/O Error Queue Overflow 
(error queue overflow 
or no CHANQ entry avail- 
able for ERP) 

Invalid DASD Address (disk) 
Irrecoverable I/O Error (tape) 
No Long Seek (disk) 
I/O Error during fetch 
(unrecoverable I/O error 
during fetch of non$ phase) 
Job Control Open Failure 
(load $$BEOJ) 
(cancel occurred in LTA) 
Unrecognized Cancel Code 
Supervisor Catalog Failure 



Label 

ERR10 



ERRGO 
ERR1C 
ERR1D 
ERR1E 
ERRGO 
ERR20 

ERR21 

ERR22 

ERR23 
ERR24 
ERR25 

ERR26 

ERR27 

EXT02 
ERR30 

ERR31 



ERR32 

ERR33 
ERRGO 



EXT02 
EXT 02 



H 



All cancel-codes except in connection with DUMP-macro (code=X , 00 i 
is not a true cancel-condition) initially have a value X f 40* 
higher than indicated above, but the X^O' bit is stripped by the 
SUPVR before fetching the Terminator. In addition to recognizing 
the cancel-codes above, the Terminator also recognizes the same 
codes with the X'SO* bit on. The X'SO* bit is tested for by 
$$BEOJ and subsequently reset. 

♦This cancel code is not significant in case of a supervisor 
catalog failure, because the system is placed in a wait state 
without any further processing by the Terminator. Thus, there 
is no conflict between this cancel code and the preceding X'FF' 
cancel code. 
**If the CCB is unavailable, the logical unit is SYSxxx. 

Figure 63. Cancel Codes and Messages 



258 DOS System Service Programs 



Displacement 



Label 



Description 



0-15 

16-17 

18-19 

20-23 

24 

25 

26 

27 



28-31 
32-33 
34-35 
36-39 
40-43 
44-47 
48-53 



54-55 



(ACCTCOMN) 
ACCTSVRG 

ACCTSVRX 

ACCTSVRE 

ACCTPCNT 

ACCTSAID 

ACCTFAID 

ACCTRAID 

ACCTSWCH 



ACCTIME 
ACCTRESC 
ACCTUSEP 
ACCTBLES 



ACCTSEAS 



ACCTUSEL 



Temporary register save area. 

Save area for remainder of overhead counter times distributed by partition on exit. 

Save area for remainder of all-bound counter times distributed by partition on entry. 

Count of partitions using JAI . 

Owner of physical transient area*. 

Interrupted program*. 

Active program*. 

Accounting switches: if bit = 1 , true; if bit = 0, not true. 



bit - cancel accounting 
bit 1 - no active partitions 
bit 2 - catalog in process 
bit 3 - alternate label area 



bit 4 - IPL indicator 
bit 5 - $JOBACCT in Fl 
bit 6 - $JOBACCT in F2 
bit 7- $JOBACCT in BG 



Start time of current accounting interval, in complement format. 

Reserved. 

Address of user save area (ACCTUSER). 

Address of BG Job Accounting Table. 

Address of F2 Job Accounting Table if BJF; otherwise zero. 

Address of Fl Job Accounting Table if BJF; otherwise zero. 

Seize blocks; serve as overlapped Event Control Blocks. 



TSBit 


(reserved) 


Wait 
Bit 1 


PIK1 


Wait 
Bit 2 


PIK2 


m Uf FrR 


rrR 








9nj-| 




zna 


CV^D 





TS Bit: 

X'00' = no $JOBACCT 
running 

*i X'FF' = $JOBACCT active 



Length of user save area, set with 4th operand of global AG39. 



*Note: XW = all bound, X'10' = BG, X'20' = F2, X'30' = Fl , X'40' = overhead and FG if SPI. 



Figure 64. Job Accounting Interface Common Table (ACCTCOMN) 
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Displacement 


Label 


Description 


0-3 


ACCTWK1* 
(ACCTABLE)* 


Work area used in SIO update. 


4-7 


ACCTWK2 


Work area used with ACCTWK1 in start/stop time routine 


8-11 


ACCTSVPT 


Job card pointer; address of job card field following jobname. 


12 


ACCTPART 


ID of partition in charge (partition switch name). 


13 


ACCTRES2 


Reserved . 


14-15 


ACCTLEN 


Length of SIO area = 6n+ 1 , where n = number of devices for this partition in SYSGEN option JA = (nl , n2, n3). 


16-21 


ACCTLOAD 


Label area instruction; moves JAI label area address to OPEN/CLOSE transients. 


22-23 


ACCTRES3 


Reserved . 


24-27 


ACCTLADD 


Address of alternate label area. 


28-31 


ACCTCPUT 


Counter for CPU time elapsed in a jobstep, counted in 300ths of a second. 


32-35 


ACCTOVHT 


Counter for overhead time; time not charged to any partition. 


36-39 


ACCTBNDT 


Counter for all -bound time; system wait state time divided between running partitions. 


40-47 


ACCTSVJN 


Save area for job name during simulated EOJ. 






JOB ACCOUNTING TABLE (user's portion of Partition Table) 


48-55 


ACCTJBNM 


Job name; taken from job card. 


56- 71 


ACCTUSRS 


User information; 16 bytes from Job card. 


72-73 


ACCTPTID 


Partition ID; 'BG', 'F2', or 'FT in EBCDIC format. 


74 


ACCTCNCL 


Cancel code; see Cancel Codes and Messages (Figure 32). 


75 


ACCTYPER 


Type of record: 'S l = job step, 'L' = last step of job. 


76-83 


ACCTDATE 


Date in format specified at SYSGEN (MM/DD/YY or DD/MM/YY). 


84-87 


ACCTSTRT 


Start time of job, in packed decimal (OHHMMSSF; F = sign). 


88-91 


ACCTSTOP 


Stop time of job, in same format as ACCTSTRT 


92-95 


ACCTRES 


Reserved . 


96- 103 


ACCTEXEC 


Phase name; taken from execute card. 


104-107 


ACCTHICR 


High core address of active program phase, from COMREG. 


108-111 


ACCTIMES 


CPU time elapsed in a job step; counted in 300ths of a second. 


112-115 




Overhead time; elapsed time not charged to any partition, in 300ths of a second. 


116-119 




All -bound time; system wait state time divided between running partitions, in 300ths of a second. 


120 


ACCTSIOS 


SIO tables: 6 bytes for each device specified by SYSGEN options, as follows: 2 bytes for device address (Ocuu), 
4 bytes for count of SIOs in current jobstep. 

Overflow byte: normally X'20', but is X'30' if more devices are used within a partition than specified by 
SYSGEN options. 




*Note: DSh 
its o 


CT ACGTABLE s; 
wn JAI Partition 


/mbolically addresses the JAI Partition Tables with labels as shown. Each partition in which JAI is supported has 
Table, labeled ACCTBG, ACCTF2, ACCTF1, for active partitions BG, F2, and Fl respectively. 



Figure 65. Job Accounting Interface Partition Table (ACCTxx*) 
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Record 


iQ 


1 


a 




h 




(D 




ON 




ON 




• 






Record 


l 


2 


S 




0J 




o 




cr 




H* 






CD 


Record 


O 


3 


? 




CD 




O 




*T 




» 




CO 








Record 


H 


4 


Oi 









■d 




CO 




K 




w 




50 


Record 


O 


5 






1-2 


3 


4 


5-7 


8-9 


10-11 


12-15 


16-19 


20-27 


28-35 


36-43 


44-77 


78 


79 


Machine 


Record 


CPU 


Reserved 


CPU 


CPU 


MCEL 


Date 


Time of day 


Reserved 


Job ID 


Machine 


Reserved 


Damage 


End of 


Check 


Sequence 


Model 




Serial 


ID 


Length 




in 300ths of 






Check 




Assessment 


Record 


ID 


Counter 


Number 












a second 






Old PSW 






Indicator 


(X'10') 
















Timer units 












(X'FF») 



0-3 

(Same as Record 1 ) 



0-3 

(Same as Record 1 ) 



4. 

Sub Class 
Codes 



Tense 
Codes 



6-7 

Error and 
Validity 
Codes 



8-11 

Extended 

Logout 

Length 



12-19 
Reserved 



20-23 

Failing 
Storage 
Address 



24-25 

Region Code 

ECC 

Information 



26-27 

Region Code 
Control Word 
Address 



28-78 



Reserved 



79 

(Same as Record 1 ) 



4-48 
Reserved 



49-78 

Floating Point Register Area 



79 

(Same .as Record 1) 



0-3 

(Same as Record 1) 


4-5 

Floating Point Regs Save 
Area (Continued) 


6-69 

General Registers Save Area 


70-78 

Control Registers 
Save Area 


79 

(Same as Record 1 ) 



0-3 

(Same as Record 1) 


4-58 

Control Registers Save Area 


59-78 

MCEL (Machine Check Extended Logout) 


79 

(Same as Record 1) 



Record 
6-17 



0-3 

(Same as Record 1) 


4-78 

MCEL (Machine Check Extended Logout) 


79 

(Same as Record 1 ) 



> 

CD 

a* 



Record 
18 



Note: 



0-3 

(Same as Record 1) 


4-75 

MCEL (Machine Check Extended Logout) 


76-78 

Reserved 
(X'OOOOOO 1 ) 


79 

(Same as Record 1) 



The Model 155 uses Records 1 - 18, as shown. The Model 145 uses only Records 1 -8. 
In Record 8 for the Model 145, Bytes 0-3 are the same as Record 1, Bytes 4-25 contain 
the remainder of the MCEL (Machine Check Extended Logout) area, and the remainder 
of the record is not used . 



to 

ON 



Displacement 





1 


2 


3 


4-11 


12-15 


16-19 


20-27 


28-43 


44-51 


Label 


CCKEY 


CCN1 


CCN2 


CCMOD 


CCCPUID 


CCDATE 


CCTIME 


CCNAME 


CCAIOU 


CCFCCW 


Record 1 * 


Record 
ID 


Record 
Number 


Total 
Records 


CPU 

Model 

Code 


CPU ID 
Information 


Date 


Time 
of Day 


Job 
Name 


Active 
I/O Units 


Failing 
CCW 



Displacement 


52-59 


60-63 


64-65 


66 


67-69 


70-73 


74-77 


78 


79 


Label 


CCCSW 


CCECSW 


CCDEVTYP 


CCCHID 


CCCUA 


CCMPI 




CCSYSCON 


CCGUARD 


Record 1 
(continued) 


CSW 


Extended 
CCW 


Device 
Type 


Channel 
ID 


Control 
Unit 


Multi- 
processing 
Information 


Reserved 


System 

Condition 

Byte 


Guard 

Byte 

X'FF' 



Displacement 


0-3 


4-78 


79 


Record 2 


Same as Record 1 


Channel Logout Area 


Same as 
Record 1 



Displacement 


0- 3 


4-24 


25- 78 


79 


Record 3 


Same as Record 1 


Channel Logout Area 


Unused 


Same as 
Record 1 



Note: Only Record 1 is written for the Model 155. 

Record 1 is also addressed symbolically as CCREC with the logout data area, 
Bytes. 4- 78, addressed as CCLOGD. 



Figure 67. RMS Channel Check Record on SYSREC 
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Appendix D: Microfiche Cross-Reference Index 



The index gives the relat: 


Lonship of 


EREPLOG2 


IJBELOG2* 


CTL. 230. 00 


core- image 


phase names, relocatable module 


EREPLOG3 


IJBEL0G3* 


CTL. 231. 00 


names, microfiche labels. 


and microfiche 


EREPL0G4 


IJBELOG4* 


CTL. 232. 00 


identification numbers. 




EREPL0G5 


IJBELOG5* 


CTL. 232. 50 








EREPL0G6 


IJBELOG6* 


CTL. 232.55 


An asterisk indicates the microfiche 


EREPLOG7 


IJBELOG7* 


CTL. 232. 60 


label. If 


the microfiche 


label differs 


EREPLOG8 


IJBELOG8* 


CTL. 232.65 


from both the phase and the module name, it 


EREPLOG9 


IJBELOG9* 


CTL. 232. 70 


is so indicated in parentheses. 


EREPLST 


IJBELST* 


CTL. 232. 75 








EREPMC30 


IJBEMC30* 


CTL. 234. 00 


When a phase or module 


takes up more 


EREPMC40 


IJBEMC40* 


CTL. 235. 00 


than one microfiche card, 


the 


EREPMC45 


IJBEMC45* 


CTL. 235. 50 


identification number of only the first 


EREPMC50 


IJBEMC50* 


CTL. 236. 00 


card is shown. 




EREPMC55 


IJBEMC55* 


CTL. 236. 50 








EREPMPX 


IJBEMPX* 


CTL. 236. 70 


For the 


complete microfiche 


EREPOBR 


IJBEROBR* 


CTL. 194. 00 


cross-reference index, see Introduction to 


EREPSEL 


IJBESEL* 


CTL. 195. 50 


DOS Logic, 


listed in the Preface. 


EREPSDR 


IJBERSDR* 


CTL. 195. 00 








EREP 27 15 


IJBE2715* 


CTL. 200.00 


Core Image 


Relocatable 




ESTVFMT 


IJBESTFM* 


CTL. 196. 00 


Phase Name 


Module Name 


Card ID 


ESTVMT 


IJBESTJyiT* 


CTL. 197. 00 








ESTVPR 


IJBESTPR* 


CTL. 198.00 


$$BPDAID* 


None 


CTL.172.50 


ESTVUT 


IJBESTUT* 


CTL. 199. 00 


$$BSDRUP* 


None 


CTL.185.00 








$$BUFLDR* 


None 


CTL.187.15 


LSERV 


IJBLSERV* 


CTL. 228. 50 


$$BUFLD2* 


None 


CTL.187.20 








DUMPGEN 


IJBDMPGN* 


CTL.187.50 


PDAID 


IJBPDAID* 


CTL. 241. 50 


DUMPGEN1 


IJBDMPGN* 


CTL. 187.50 


PDAIDFTT* 


None 


CTL. 246. 00 








PDAIDFTP* 


None 


CTL. 247. 00 


EREP 


IJBEREP* 


CTL. 193.00 


PDAIDFTW* 


None 


CTL. 248. 00 


EREPASSM 


IJBEASSM* 


CTL.188. 00 


PDAIDGTT* 


None 


CTL. 249. 00 


EREPCI30 


IJBECI30* 


CTL. 189. 00 


PDAIDGTP* 


None 


CTL. 250. 00 


EREPCI40 


IJBECI40* 


CTL. 190. 00 


PDAIDGTW* 


None 


CTL. 251. 00 


EREPCI45 


IJBECI45* 


CTL. 190. 50 


PDAIDITP* 


None 


CTL. 252. 00 


EREPCI50 


IJBECI50* 


CTL. 191. 00 


PDAIDITT* 


None 


CTL. 253.00 


EREPCI55 


IJBECI55* 


CTL. 191. 50 


PDAIDITW* 


None 


CTL. 254. 00 


EREPCLR 


IJBECLR* 


CTL. 192. 00 


PDAIDQTT* 


None 


CTL. 255. 00 


EREP ED IT 


IJBEDIT* 


CTL. 192. 50 


PDAIDQTW* 


None 


CTL. 256. 00 


EREPHIST 


IJBEHIST* 


CTL. 192. 75 


PDLIST 


IJBPDLST* 


CTL. 241.70 


EREPIFA 


IJBEIFA* 


CTL. 198. 80 








EREPIPL 


IJBEIPL* 


CTL. 198. 90 


SYSBUFF1 


IJBSBUFF* 


CTL. 242. 50 


EREPL0G1 


IJBEL0G1* 


CTL. 229. 00 


SYSBUFLD 


IJBSBUFF* 


CTL. 242. 50 
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Appendix E: Explanation of Flowchart Symbols 



PROCESS 

«B2 



DESCRIPTION 



A GROUP OF PROGRAM INSTRUCTIONS 
THAT PERFORM A PROCESSING 
FUNCTION OF THE PROGRAM. THE 
LABEL, IF ANY, IS SHOWN ABOVE 
THE BLOCK. 



BB-D4, INITL1 
BC-B2, 0PENX4 
BL-J1, ENDPRN 



IF ANY ADDITIONAL EXPLANATION 
IS REQUIRED, ITS LOCATION ON 
THE CHART IS IDENTIFIED BY AN 
ASTERISK AND THE BLOCK ID. 



*LABEL1_ 

* SUBROUTINE 



DESCRIPTION OR TITLE OF A ROUTINE 
THAT IS DETAILED ON ANOTHER 
FLOWCHART. THE STARTING LABEL OF 
THE ROUTINE AND THE FLOWCHART ID 
APPEAR ABOVE THE STRIPE. 



YES 


«*«»»C5«««»*»»«»« 
•ERRTN BG« 

..X* ERROR ROUTINE • 




» * 



PREPARATION 



INPUT/OUTPUT 



AN INSTRUCTION, OR GROUP OF 
INSTRUCTIONS, THAT CHANGES 
PORTIONS OF A ROUTINE OR 
INITIALIZES A ROUTINE FOR 
GIVEN CONDITIONS. 



A GROUP OF OPERATIONS NOT 
DETAILED IN THE FLOWCHARTS 
IN THIS MANUAL, SUCH AS 
USER'S ROUTINES. 



ANY FUNCTION OF AN INPUT/OUTPUT 
DEVICE OR PROGRAM, USUALLY 
BRANCHING TO AN I/O ROUTINE TO 
PERFORM THE FUNCTION STATED IN 
THE BLOCK. 



* PROCESS THE 
» RECORD 

X 
USEX15 .*. 

E4 ». 

.»* USER ** 

*. OPTION 


. YES 


♦•••♦E5»*»*«»«*»* 
* * « * 

,.X» USER ROUTINE* » 


•NO 

Ix 


; 


X 
RECALT .». 

F4 *. 

.** RECORD *» 
«.. ALTERED 


. YES 


•MODIFY PRINT • 
...X» INSTRUCTIONS • 



Gl «. 

DECISION 



POINTS WHERE THE PROGR<*M 
BRANCHES TO ALTERNATE PROCESSING, 
BASED UPON VARIABLE CONDITIONS 
SUCH AS PROGRAM SWITCH SETTINGS 
AND TEST RESULTS. 



X 




.». 




G4 *. 








ALL RECORDS* 


NO 


PROCESSED 














X 


• YES 






• BL • 






♦ Al« 


















PRINT 


X 




•n-*H4**»»**«*» 






END 


1 JOB 


• 



ON-PAGE CONNECTOR. AN ENTRY 
FROM, OR AN EXIT TO, ANOTHER 
FUNCTION ON THE SAME FLOWCHART. 
THE NUMBER IN THE CONNECTOR 
IDENTIFIES THE CORRESPONDING 
ENTRY OR EXIT ON THE CHART. 



OFF-PAGE CONNECTOR. AN ENTRY FROM, 
OR W* EXIT TO, A GIVEN POINT ON 
ANOTHER FLOWCHART. THE CHARACTERS 
IN THE CONNECTOR IDENTIFY THE 
CHART AND BLOCK. THE CORRESPONDING 
LABEL, IF ANY, IS PLACED OUTSIDE 
THE CONNECTOR. FOR MULTIPLE ENTRIES 
AND EXITS, AN ASTERISK APPEARS IN 
THE CONNECTOR AND THE CHARACTERS 
ARE LISTED NEARBY. 
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Glossary 



For a more complete list of data processing 
terms, refer to IBM Data Processing 
Techniques # A Data Processing Glossary , 
GC20-1699. 

American National Standard Label Format : 
The tape file format used when the label is 
written in the ASCII mode. 

ASCII (American National Standard Code for 
Information Interchange) ; A 12 8- character, 
7-bit code. The high- order bit in the 
System/360 8- bit environment is zero. 

CCH (Channel Check Handler) : A feature 
that assesses System/ 370 channel errors to 
determine if the system can continue 
operations . 

channel inboard error : An error that 
occurs between one I/O device and the 
central processing unit. 

chronological area of the recorder file : 
The area of the recorder file (IJSYSRC) 
where error records are printed as they 
occur. The record types included are: 
0BR f MCRR, MCAR, CCH, BTAM, QTAM, and 2715 
error records. This area is present on 
both the System/360 and System/370 recorder 
files and differs from the SDR area where 
cumulative errors are recorded by device 
type. 

core image library : A SYSRES area (or a 
device of the same type as SYSRES) that 
stores programs processed by the linkage 
editor. Each program is in a form that can 
be executed in main storage. 

core wrap mode : The method of operation 
that records the events of a trace in main 
storage. It is the default process when no 
output device for the trace has been 
specified. The contents can be displayed 
by either a dump program or manually from 
the console. 

data set security : A feature that provides 
protection for disk files. A data secured 
file cannot be accidentally accessed by a 
problem program. 

DOS (Disk Operating System) : A disk 
resident system that provides operating 
system capabilities for 16K and larger IBM 
System/360 and System/ 370 systems. 

DOS Volume Statistics : A facility that 
monitors and records the number of 
temporary read and write errors on 
currently accessed^ tape volumes. This 



facility has two options. Error Statistics 
by Tape Volume (ESTV) and Error Volume 
Analysis (EVA) . 

EREP (Environmental Recording , Editing and 
Printing) : A program that processes the 
data contained on the system recorder file. 

ESTV (Error Statistics by Tape Volume) : 
One of the two options of the DOS Volume 
Statistics. With ESTV Support, the system 
collects data on tape errors by volume for 
any tape volumes used by the system. 

EVA (Error Volume Analysis) : One of the 
two options of the DOS Volume Statistics. 
With this option, the system issues a 
message to the operator when a number of 
temporary read or write errors (specified 
by the user at system generation time) has 
been exceeded on a currently accessed tape 
volume. 

FCB (Forms Control Buffer) : The buffer in 
the IBM 3811 Printer Control Unit that 
stores carriage information for the IBM 
3211 Printer. 

fetch : 

1. To bring a program phase into main 
storage from a core image library for 
immediate execution. 

2. The routine that retrieves requested 
phases and loads them into main 
storage . 

3. The name of a macro instruction 
(FETCH) used to transfer control to 
the system loader. 

4. To transfer control to the system 
loader • 

F/L Trace (Fetch/Load Trace) : A program 
that records information about phases and 
transients as they are called from a core 
image library. 

FOLD : A SYSBUFLD control card operand that 
indicates that all hexadecimal bytes 
printed by the IBM 3211 Printer are treated 
as if bits and 1 are ones. For example, 
this allows an uppercase A to print when 
X^l', X'Hl', X*81 f , or X'Cl" is sent to 
the printer. 

GSVC Trace (Generalized Supervisor Calls 
Trace) : A program that records SVC 
interrupts as they occur. All or a 
selected group of SVCs can be traced. 

IDRA (Independent Directory Read-in Area) : 
A resident area, created by a supervisor 
option, into which the system reads core 
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image library directories for fetch and 
load operations. Using IDRA frees the 
physical transient area to perform error 
recovery procedures. 



IOCS (Input/Output Control System) ; A 
group of macro instruction routines 
provided by IBM for handling the transfer 
of data between main storage and external 
storage devices. 

I/O (Input/Output) Error Logging : The 
process of recording OBR and SDR records on 
the system recorder file. 

I/O Trace (Input/Output Trace) ; A program 
that records I/O device activity for all or 
a selected group of I/O devices. 

job accounting interface : A function that 
accumulates accounting information for each 
job step to: charge usage of the system, 
help plan new applications, and help 
supervise system operation more 
efficiently. 

LSERV (Label Cylinder Display) : A program 
that formats a listing of the label 
cylinder located on SYSRES. LSERV can run 
in any partition and outputs the list on 
SYSLST, which may be assigned to disk, 
tape, or printer. 

MCAR (Machine Check Analysis and 
Recording) : A feature that records 
System/370 machine check interrupt error 
information on the system recorder file and 
then attempts to recover from the 
interrupt. 

MCI (Machine Check Interrupt) : The 
interrupt that occurs if the central 
processing unit fails to operate. 

MCRR (Machine Check Recording and 
Recovery) : The recording of pertinent data 
on the system recorder file after either a 
machine check interrupt or a channel 
inboard error occurred on System/360 Model 
30, Model 40, or Model 50. 

nonstandard labels : Labels that do not 
conform to the System/ 360 standard label 
specifications. They can be any length, 
need not have a specified identification, 
and do not have a fixed format. 

object module : One or more control 
sections in relocatable, nonexecutable 
form. An object module must be processed 
by the linkage editor before it can be 
executed in the system. 

OBR (Outboard Recorder) : A feature that 
records pertinent data on the system 
recorder file when an unrecoverable I/O 
error occurs. 



overlay : A program segment (phase) that is 
loaded into main storage. It replaces all 
or part of a previously retrieved section. 



PCIL (Private Core Image Library) : A file 
referenced in the same manner and for the 
same purposes as the system core image 
library, but distinct from the system core 
image library. PCIL increases available 
core image library space to enable 
compiling, linkage editing, and executing 
in the foreground partition, when a private 
core image library is assigned to that 
foreground partition. 

PDAID (Problem Determination Aids) : 
Programs that trace a specified event when 
it occurs during the operation of a 
program. The traces provided are QTAM 
Trace, I/O Trace, F/L Trace, and GSVC 
Trace. 

phase : The smallest complete unit that can 
be referenced in a core image library. 
Each program overlay is a complete phase. 
If the program has no overlays, the program 
itself is a complete phase. 

private library : A relocatable, core 
image, or source statement library that is 
separate and distinct from the system 
library. 

problem determination : A procedure or 
process (provided by IBM) that the user can 
follow after an error message to determine 
that cause of that error. (See PDAID) 

QTAM trace : A routine that records certain 
supervisor and I/O activities on tape or in 
main storage. 

RDE (Reliability Data Extractor) : A 
function that provides hardware reliability 
data that is analyzed by IBM. 

RMS (Recovery Management Support) : A 
feature for System/370 that consists of the 
MCAR (machine check analysis and recording) 
and CCH (channel check handler) functions. 
RMS gathers information about System/370 
hardware reliability and attempts certain 
error recovery operations. RMS is a part 
of the entire reliability, availability, 
and serviceability support for System/370. 

SDR (Statistical Data Recorder) : A feature 
that records the cumulative error status of 
an I/O device on the system recorder file. 

SORTED DSERV : A program that gives you an 
alphamerically sorted listing of any or all 
of the library directories. 

stand-alone dump : A program that displays 
the contents of main storage from a minimum 
of 8K bytes to a maximum of 1 63 84K bytes. 
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It helps to determine that cause of an 
error. 

system recorder file ; The file that is 
used to record hardware reliability data. 



UCSB (Universal Character Set Buffer) ; A 
buffer in a printer control unit that 
stores the code equivalents of the 
characters on an interchangeable print 
chain or train cartridge. 



UCS (Universal Character Set) ; K printer 
feature that permits the use of a variety 
of character arrays. 
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Index 



Indexes to systems reference library 
manuals are consolidated in the 
publication, DOS Master Index , GC24-5063. 
For additional information about any 
subject listed below, refer to other 
publications listed for the same subject in 
the Master Index. 



DUMPGEN (CONT.) 

DUMPCORE detail chart 93 
DUMPCORE general chart 88 
DUMPCORE sample output 84 
DUMPCORE text 83 
DUMPGEN detail chart 89 
DUMPGEN general chart 88 
DUMPGEN text 81 
executing 81 
messages 82 
OPTN statement 81 
program switches 83 
stand-alone dump, definition 
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AAA= option 13 

alternate area 13 

American National Standard Label Format 

265 
area station summary, see EREPASSM 
area station-device record sample output 

121 
ASCII 265 



buffer load program, see 3211 Printer 



cancel codes and messages 258 

CCH (Channel Check Handler) 265 

CE address table (CETAB) 35 

CE serviceability routines, accessing of 

225 
channel inboard error 265 
channel queue (CHANQ) table 238,245 
CHANQ (channel queue) table 238,245 
charts 

detail, see phases 

general, see phases 
chronological area of the recorder file 

265 
communications region 247 

additional 252 

extensions 252 

SDR 228 
core image library 265 
core wrap mode 265 
COREDUMP, see DUMPGEN 



data set security 265 

density data 257 

detail charts, see phases 

device type codes 256 

disk operating system program flow 10 

DOS (Disk Operating System) 265 

DOS Volume Statistics 265 

DUMPCORE, see DUMPGEN 

DUMPGEN 81-94 

ASSGN statement 81 

control statements 81 

COREDUMP 83 

COREDUMP general chart 88 

COREDUMP text 83 

DUMPCORE 83 



environmental recording, editing, printing , 

see EREP 
EREP 109-202 

clear recorder file 110 

definition 265 

edited CIB records 115 

edited machine check record 116,127 

edited machine check records 116 

error messages 111 

execution 109 

history file processor 110 

list processing 112 

main storage map 1 1 

OBR record format 114 

option handler general chart 133 

option handler, text 110 

option summary 112 

phases 110 

RDE record formats 131 

RDE records 109 

record types 109 

recorder file 109,110 

RMS records 109 

SDR record format 113 

System/370 records 109 
EREPASSM 

(refer to EREP also) 

detail charts 188-191 

general chart 143 

sample output of area station-device 
record 121 
EREPEDIT 

(refer to EREP also) 

detail chart 150 

general chart 137 

list processing 112 

record lists 140 

refer to EREP also 

text 110 
EREPHIST 

(refer to EREP also) 

detail chart 192 

general chart 144 

text 1 1 
EREP2715 

(refer to EREP also) 

area station error log record 126 

BSC adapter error record 125 

detail charts 179-187 
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EREP2715 (CONT.) 

disk adapter error record 123 
error record format 122 
format for 2715 records 122 
general chart 142,143 
multiplexor channel adapter error 

record 124 
record processing 143 
sample output of error record 120 
2740 adapter error record 124 
2790 adapter error record 123 

ERRLOG 

routine 109 

error message cross reference 223 

error statistics by tape volume, see ESTV 

ESTV 99-108 

data set format program (ESTVFMT) 
100 

definition 266 

detail charts 103-108 

ESTVFLE data set 100 

file dump program (ESTVUT) 100 

general chart 101 

output modes 99 

records 99 

text 99 
ESTVFLE, ESTV data set 100 
EVA (Error Volume Analysis) 265 



F/L trace 

core-wrap mode (PDAIDFTW) 24 

data collection 23 

definition 265 

detail charts 62-66 

entering new events in core-wrap mode 
19 

general chart 22 

output 23 

overview chart 12 

printer output (PDAIDFTP) 24 

sample output 25 

tape output (PDAIDFTT) 25 

trace table entry 24,36 

tracing options 23 
FAVP (first available pointer) 238 
fetch 265 

fetch/load trace, see F/L trace 
FICL (first-in-class-list) table 238,239 
first available pointer (FAVP) 238 
first-in-class-list (FICL) table 238,239 
first-on-channel-list (FOCL) 238 
FLPTR (free list pointer) 238 
FOCL (first-on-channel-list) 238 
forms control buffer, see 3211 Printer 
free list pointer (FLPTR) 238 



general charts (see phases or statement 

processors) 
generalized SVC trace, see GSVC 
glossary 265 



GO option 14 
GSVC trace 

core-wrap mode (PDAIDGTW) 28 

data collection 27 

definition 266 

detail charts 67-74 

entering new events in core-wrap mode 
19 

entering new SVC events for output 
devices 29 

general chart 26 

output 27 

overview chart 12 

printer output (PDAIDGTP) 29 

sample output 28 

standard preface in CE area 37 

tape output (PDAIDGTT) 29 

trace table entry 27,36 

tracing options 27 



I/O error logging 266 

I/O table interrelationship 238 

I/O trace 

core-wrap mode (PDAIDITW) 18 

data collection 17 

definition 266 

detail charts 57-61 

entering new events for output phases 
20 

entering new events in core-wrap mode 
19 

general chart 1 6 

output 1 8 

overview chart 12 

printer output (PDAIDITP) 20 

sample output 18 

standard preface in CE area 37 

tape output (PDAIDITT) 20 

trace table entry 17,35 

tracing options 17 
IDRA (Independent Direcorty Read- In Area) 

265 
IGNORE DEVICE= option 14 
IGNORE SVC= option 14 
input/output trace, see I/O trace 
IOCS (Input/Output Control System) 265 



JA 



259 



260 



238, 



common table (ACCTCOMN) 
definition 266 
partition table (ACCTXX) 
user's table 260 
JIB (job information block) table 

240 
job accounting interface, see JA 
job information block (JIB) table 238, 
240 



label cylinder display program, see LSERV 
label list 214 
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logical unit block (LUB) table 238,239 
LSERV 

definition 266 

detail chart 97 

execution 96 

sample output of display 96 

text 96 
LUB (logical unit block) table 238,239 
LUBDSP table 245 
LUBID table 238,245 



main storage map, supervisor 224 

MCAR (Machine Check Analysis and Recovery) 

266 
MCI (Machine Check Interrupt) 266 
MCRR 

definition 266 

linkage table 233 

record formats tables 234-237 

recording records 109 
microfiche cross-reference index 263 



next-in-class-list (NICL) table 238 r 239 
NICL (next-in-class-list) table 238,239 
nonstandard labels 266 



object module 266 

OBR (outboard recorder) 
definition 266 
in ERRLOG 109 
record format 232 

OUTPUT DEVICE= option 14 

overlay 266 



PCIL (Private Core Image Library) 266 
PDAID 

alternate area use 13 

control statements 14 

core-wrap mode selection 13 

definition 266 

entering new events in core-wrap mode 
19 

F/L trace general chart 22 

fetch/load trace introduction 11 

general logic flow 12 

generalized SVC trace introduction 
11 

GSVC general chart 26 

GSVC trace general chart 26 

I/O trace general chart 16 

initiation of 13 

input/output trace introduction 1 1 

introduction 1 1 

options 1 4 

output device selection 13 

QTAM general chart 30 

QTAM trace introduction 1 1 

routines, accessing of 225 

switches used by 38 

system considerations 1 1 



PDAID (CONT.) 

tables 35 

trace prefaces in CE area 36 

PDAID= option 14 

phases 

$$BPDAID, detail chart 50 
$$BPDAID, general chart 12, 1 6, 22 , 30 
$$BPDAID, overview chart 12 
$$BPDAID, text 13,14 
$$BSDRUP, detail chart 178 
$$BUFLDR, detail chart 212 
$$BUFLDR, general chart 205 
$$BUFLDR, text 203 
$$BUFLD2, detail chart 213 
$$BUFLD2, general chart 205 
$$BUFLD2, text 203 
COREDUMP, detail chart 91 
COREDUMP, text 83 
DUMPGEN, detail chart 89 
DUMPGEN, text 81 
EREP root, text 109 
EREP, detail charts 145-202 
EREPASSM, detail chart 188 
EREPASSM, general chart 143 
EREPASSM, sample output 121 
EREPASSM, text 110 
EREPCI30, detail chart 171 
EREPCI30, general chart 140 
EREPCI30, text 110 
EREPCI40, general chart 141 
EREPCI40, text 110 
EREPCI45, general chart 142 
EREPCI45, text 110 
EREPCI50, general chart 141 
EREPCI50, text 110 



£jK&f^j.d\j , general cnart ih 
EREPCI50, text 110 
EREPCI55, detail chart 174 
EREPCI55, general chart 14 
EREPCI55, text 111 
EREPCLR, detail chart 169 
EREPCLR, general chart 144 
EREPCLR, text 110 
EREPEDIT root, detail chart 
EREPEDIT, detail chart 150 
EREPEDIT, general chart 137 
EREPEDIT, text 110 
EREPHIST, detail chart 192 
EREPHIST, general chart 144 
EREPHIST, text 110 
EREPIFA, general chart 142 
EREP IF A, text 110 
EREPLOG1, detail chart 172 
EREPLOG1, general chart 141 
EREPLOG1, text 110 
EREPLOG2, general chart 141 
EREPLOG2, text 110 
EREPLOG3, general chart 141 
EREPLOG3, text 110 
EREPLOG4, general chart 141 
EREPLOG4, text 110 
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phases (CONT.) 

EREPLOG7, general chart 142 
EREPLOG7, text 110 
EREPLOG8, general chart 142 
EREPLOG8, text 110 
EREPLOG9, general chart 142 
EREPLOG9, text 110 
EREPMC30, general chart 140 
EREPMC30, text 110 
EREPMC40, general chart 141 
EREPMC40, text 110 
EREPMC45, general chart 142 
EREPMC45, text 110 
EREPMC50, general chart 141 
EREPMC50, text 110 
EREPMC55, detail chart 175 
EREPMC55, general chart 142 
EREPMC55, text 111 
EREPMPX, general chart 142 
EREPMPX, text 110 
EREPOBR, general chart 140 
EREPOBR, text 110 
EREPSDR, general chart 140 
EREPSDR, text 110 
EREPSEL, general chart 142 
EREPSEL, text 110 
EREP2715, detail chart 179 
EREP2715, general chart 143 
EREP2715, sample output 120 
EREP2715 f text 110 
ESTVFMT, detail chart 103 
ESTVFMT, general chart 101 
ESTVFMT, text 100 
ESTVMT, detail chart 105 
ESTVMT, general chart 101 
ESTVPR, detail chart 107 
ESTVPR, general chart 101 
ESTVUT, detail chart 104 
ESTVUT r general chart 101 
ESTVUT , text 100 
PDAID, detail chart 39 
PDAID, general chart 12 
PDAID, text 11 
PDAIDFTP, detail chart 
PDAIDFTP, general chart 22 
PDAIDFTP, text 24 
PDAIDFTT, detail chart 65 
PDAIDFTT, general chart 22 
PDAIDFTT, text 25 
PDAIDFTW, detail chart 62 
PDAIDFTW, general chart 22 
PDAIDFTW, text 24 
PDAIDGTP, detail chart 69 
PDAIDGTP, general chart 26 
PDAIDGTP, text 29 
PDAIDGTT, detail chart 72 
PDAIDGTT, general chart 26 
PDAIDGTT, text 29 
PDAIDGTW, detail chart 67 
PDAIDGTW, general chart 26 
PDAIDGTW, text 28 
PDAIDITP, detail chart 58 
PDAIDITP, general chart 16 
PDAIDITP, text 20 



phases (CONT.) 

PDAIDITT, detail chart 60 
PDAIDITT, general chart 16 
PDAIDITT, text 20 
PDAIDITW, detail chart 57 
PDAIDITW, general chart 16 
PDAIDITW, text 18 
PDAIDQTT, detail chart 78,78 
PDAIDQTT, general chart 30 
PDAIDQTT, text 34 
PDAIDQTW, detail chart 75 
PDAIDQTW, general chart 30 
PDAIDQTW, text 32 
PDLIST, detail chart 51 
PDLIST, overview chart 12 
SYSBUFF1, detail chart 211 
SYSBUFF1, general chart 204 
SYSBUFF1, text 203 
SYSBUFLD, detail chart 207 
SYSBUFLD, general chart 204 
SYSBUFLD, text 203 

physical unit block (PUB) table 238,241 

PIB (program information block) 253 
flag expansions 254 
table 253,255 

private library 266 

problem determination 266 

problem determination aids, see PDAID 

program flow 10 

program information block, see PIB 

PUB (physical unit block) table 238,241 



QTAM trace 

core-wrap mode (PDAIDQTW) 32 

data collection 32 

definition 266 

detail charts 75-79 

entering new events for tape output 

34 
entering new events in core-wrap mode 

19 
general chart 30 
I-type event 31 
operation description 31 
output 32 
overview chart 12 
S-type event 31 
sample output 33 
standard preface in CE area 37 
tape output (PDAIDQTT) 34 
trace table entry 36 
tracing options 31 
V-type event 31 



RDE 

definition 266 

in EREP option summary 112 

IPL & EOD records 109 

sample output 131 

SYSREC redords 109 
recorder file (SYSREC) 109 
recovery management support, see RMS 
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reference figures 224 

Reliability Data Extractor, see RDE 

REQID table 238,245 

requestor identification (RID) 245 

RID (requestor identification) 245 

RMS 

channel check record on SYSREC 262 

definition 266 

edited channel check record (Model 

145) 130 
edited channel check record (Model 

155) 129 
edited machine check record (Model 

145) 128 
edited machine check record (Model 

155) 127 
machine check record on SYSREC 261 
support by EREP 110 



SAB (seek address block) 238 
sample output 

area station-device record by EREPASSM 
121 

CCH record (Model 145) 130 

CCH record (Model 155) 129 

CIB record (Model 30) 115 

CIB record (Model 40) 117 

CIB short record (Model 50) 118 

DUMPCORE display 84 

EREP2715 record 120 

F/L trace 25 

GSVC trace 28 

I/O. trace 18 

LSERV display 96 

MCAR record (Model 145) 128 

MCAR record (Model 155) 127 

MCRR record (Model 30) 116 

MCRR record (Model 50) 119 

OBR record 114 

QTAM trace 33 

RDE records 131 

SDR record 113 
SDR 

communication region 228 

definition 266 

device list 227 

record format 230 
seek address block (SAB) 238 
SORTED DSERV 266 
stand-alone dump, see DUMPGEN 
statistical data recorder, see SDR 
supervisor 

calls 226 

cancel codes 258 

communications regions 247 

storage allocation 224 

storage map 22 4 
SVC (supervisor call interrupt) 

list 226 

trace, see GSVC trace 
SYSREC (recorder file) 109 
SYSREC 83 

definition 267 



SYSREC (CONT.) 

recorder file 109 

use in EREP 110 
system recorder file, see SYSREC 



tables 

CETAB 35 

CHANQ 238,245 

FICL 238,239 

I/O 238 

JA common (ACCTCOMN) 259 

JA partition (ACCTXX) 260 

JA user's 260 

JIB 238,240 

LUB 238,239 

LUBID 238,245 

MCRR linkage 233 

NICL 238,239 

PIB 253 

PUB 238,241 

REQID 238,245 

TEB 242 

TEBV 243 

THFLPTR 238 

TKHDTAB 238,246 

TKREQID 238,245 
tape error block by volume, see TEBV 
tape error block, see TEB 
TEB 

(tape error block) 238,242 

address pointer 247 

I/O tables, storage allocation 224, 
238 

TEB table format 242 
TEBV 

(tape error block by volume) 238,243 

address pointer 252 

I/O tables, storage allocation 224, 
238 

TEBV table format 243 
THFLPTR table 238 

TKHDTAB (track hold) table 238,246 
TKREQID table 238,245 
TRACE DEVICE= option 1 4 
TRACE PARTITION option 14 
TRACE SVC= option 14 
track hold (TKHDTAB) table 238,246 



universal character set buffer, see 3211 
Printer 



3211 Printer 

buffer load programs 
detail charts 20 7 
FCB program 20 3 
general charts 20 4 
UCSB program 20 3 
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